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ABSTRACT 


The  US  Navy’s  Information  Professional  Community  currently  qualifies  its 
officers  using  a  paper-based  system.  Candidates  for  the  Basic,  Intermediate  and 
Advanced  Qualifications  use  qualification  books  to  attain  knowledge  and 
subsequently,  prove  possession  of  it.  Once  those  books  are  filled  with 
signatures,  a  board  of  Subject  Matter  Experts  tests  the  candidate  and  verifies  his 
mastery  of  that  knowledge. 

Using  Knowledge  Value  Added  analysis  and  Business  Process 
Reengineering,  the  return  on  knowledge  (ROK)  for  the  current  Personnel 
Qualification  System  was  estimated  and  improved  processes  were  designed  with 
the  goal  of  maximizing  ROK.  First,  the  as-is  ROK  was  estimated  for  the  three 
processes  and  their  various  subprocesses.  Then,  a  new  to-be  workflow  for  each 
of  the  three  processes  was  designed  emphasizing  incremental  improvements 
that  could  be  implemented  quickly.  Finally,  another  workflow  was  designed, 
emphasizing  radical,  unlimited  change. 

When  it  was  proven  that  Web-enabling  the  PQS  system  indeed  improves 
the  knowledge-creating  capability  of  these  processes,  a  prototype  Web-enabled 
database,  called  the  Electronic  Qualbook  was  developed  as  a  demonstrator  of 
the  technologies  and  capabilities  involved. 

This  thesis  includes  appendices  illustrating  the  design  of  the  database 
schema  and  the  Electronic  Qualbook’s  Web  interfaces.  A  third  appendix  lists  the 
majority  of  the  HyperText  Markup  Language  (HTML)  and  Active  Server  Pages 
(ASP)  code  integral  to  the  Electronic  Qualbook. 
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I.  INTRODUCTION 


A.  BACKGROUND 

Since  the  widespread  introduction  of  the  microcomputer  in  the  1980s,  and 
since  computer  networks  became  ubiquitous  in  the  1990s,  information 
technology  (IT)  has  assumed  a  very  prominent  position  in  national  security  of  the 
United  States.  In  his  National  Security  Strategy,  President  Clinton  delineated  a 
national  commitment  to  maintaining  information  superiority:  “Operational 
readiness,  as  well  as  the  command  and  control  of  forces,  relies  increasingly  on 
information  systems  and  technology.  We  must  keep  pace  with  rapidly  evolving 
information  technology  so  that  we  can  cultivate  and  harvest  the  promise  of 
information  superiority  among  U.S.  forces  and  coalition  partners  while  exploiting 
the  shortfalls  in  our  adversaries’  information  capabilities.”  (U.S.  National  Security 
Council  1999,  12)  The  Bush  Administration  retained  Clinton’s  commitment  to 
maintaining  information  superiority,  spurring  other  initiatives  such  as  force 
transformation  and  concepts  such  as  net-centric  warfare. 

In  the  late  nineties,  Navy  leadership  began  to  realize  that  if  information 
superiority  was  to  become  a  linchpin  in  the  future  of  warfare,  the  status  quo  in 
personnel  policy  was  not  sustainable.  In  order  to  maintain  information 
superiority,  a  completely  new  cadre  of  officers  was  required.  Consequently,  the 
Information  Professional  (IP)  Community  was  born. 

1.  IP  Community  History 

Vice  Admiral  Richard  Mayo  announced  the  formation  of  the  IP  Community 
in  his  naval  message,  NAVADMIN  182/01.  VADM  Mayo  promulgated  this 
message  to  the  entire  Navy  in  July  of  2001.  In  it,  he  delineated  the  new  era  of 
Defense  Strategy  that  required  new  specialists  in  command,  control,  computers, 
and  communications  (C4),  as  well  as  space  systems. 

Since  its  inception,  the  Information  Professional  Community  has  grown  to 
over  500  commissioned  officers.  Its  mission  statement  is  as  follows: 
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We  are  the  Navy's  community  of  Information  Warriors  with 
expertise  in  information,  command  and  control,  and  space  systems. 

We  own  the  Naval  Network,  the  foundation  of  information 
dominance  and  successful  execution  of  Naval,  joint,  allied  and 
coalition  operations.  We  plan,  acquire,  operate,  maintain,  and 
secure  the  Naval  Network  and  the  systems  that  support  the  Navy’s 
operational  and  business  processes  to  ensure  they  are  reliable, 
available,  survivable,  and  secure.  We  evaluate  and  integrate 
leading  edge  technologies,  innovative  concepts,  and  essential 
information  elements  to  ensure  a  warfighting  advantage.  We  will 
aggressively  foster  development  and  maturation  of  the  skills 
needed  to  conduct  network-centric  operations,  both  afloat  and 
ashore.  (LCDR  Dannelle  Barrett,  USN  2004,  12) 

As  a  very  new  community  (only  four  years  old  at  the  time  of  this  writing), 
Information  Professionals  have  had  to  develop  programs  and  core  business 
processes  that  many  officer  communities  established  decades  ago.  Included  are 
processes  such  as  accessions,  assignments,  mentorship,  continuing  education, 
and  the  Personnel  Qualification  System  (PQS). 

B.  PURPOSE 

The  purpose  of  this  thesis  is  to  analyze  the  potential  knowledge  value 
added  by  a  Web-enabled  personnel  qualification  system  and  to  develop  a 
prototype  Web-enabled  database  for  the  PQS  with  a  user-friendly  Web  interface. 
This  research  will  explore  the  feasibility  of  developing  such  a  database.  The 
Web  interface  will  enable  the  US  Navy’s  Information  Professional  (IP)  officer 
community  to  track  their  individual  PQS  signatures  and  qualifications.  It  will  also 
enable  the  program  manager,  Naval  Network  Warfare  Command 
(NETWARCOM),  to  manage  the  PQS  program  more  effectively. 

C.  AREA  OF  RESEARCH 

The  area  of  research  for  this  thesis  involves  three-tier,  Web-enabled 
databases.  Supporting  technologies  may  include  Hypertext  Markup  Language 
(HTML),  Extensible  Hypertext  Markup  Language  (XHTML),  Extensible  Markup 
Language  (XML),  Active  Server  Pages  (ASP)  with  Visual  Basic  Script  (VBScript) 
or  JavaScript,  ColdFusion,  PHP  (a  recursive  acronym  standing  for  PHP: 
Hypertext  Preprocessor)  and  Structured  Query  Language  (SQL). 
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The  primary  research  questions  to  be  addressed  are: 

•  How  does  the  current  qualification  process  work? 

•  How  will  Web-enabling  the  process  benefit  the  IP  Community  and  the 
Navy? 

•  What  methods  can  be  used  to  access  an  IP  qualifications  database 
from  the  Web? 

•  Which  method  is  the  most  appropriate? 

•  How  can  the  security  of  such  a  Web-enabled  database  be  ensured? 

D.  SCOPE  DEFINITION 

This  thesis  will  focus  first  on  the  evaluation  of  the  current  qualification 
process  and  how  Web-enabling  it  will  benefit  the  IP  Community.  It  will  then  focus 
on  the  issues  regarding  implementing  the  Web-enabled  database.  While  security 
is  an  important  consideration  in  any  Web  project,  it  will  be  given  a  rather  cursory 
treatment  in  this  thesis  due  to  time  limitations.  In  addition,  the  issues  regarding 
the  design,  performance  and  normalization  of  relational  databases  will  not  be 
covered  in  depth. 

E.  METHODOLOGY 

This  thesis  will  be  developed  in  conjunction  with  and  supplemented  by  a 
project  consisting  of  the  generation  of  a  Web-enabled  database.  A  user-friendly, 
prototype  Web  interface  will  also  be  developed  in  order  to  access  the  database. 
It  is  the  hope  of  the  author,  that  NETWARCOM  can  implement  the  project  portion 
of  this  thesis  for  widespread  use  by  the  IP  Community  with  little  additional  effort. 

The  specific  methodology  for  this  thesis  follows: 

•  Conduct  literature  research  on  current  Personnel  Qualification 
Systems 

•  Conduct  literature  research  on  the  Information  Professional 
Community 

•  Conduct  telephone  interviews  with  various  commands  involved  with 
the  tracking  of  IP  qualifications,  the  awarding  of  AQDs,  and  the 
recording  of  AQDs. 
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•  Conduct  temporary  additional  duty  (TAD)  trip  to  Norfolk,  VA  to  extract 
functional  requirements  from  SMEs  at  NETWARCOM  and  Naval 
Personnel  Development  Command  (NPDC)1. 

•  If  necessary,  conduct  temporary  additional  duty  (TAD)  trip  to  Millington, 
TN  to  extract  functional  requirements  from  SMEs  at  Naval  Personnel 
Command  (NPC) 

•  Conduct  review  of  ASP,  ASP.net,  PHP,  and  ColdFusion  methodologies 

•  Choose  a  methodology  to  be  employed  for  the  IP  qualification 
database 

•  Design  a  database  schema 

•  Design  a  Web  interface  to  access  the  database 

In  order  to  fulfill  the  purpose  of  this  thesis,  material  will  be  presented  in  the 
following  fashion.  Chapter  II  will  present  the  analysis  of  the  current  PQS  process 
and  how  Web-enabling  it  can  benefit  the  Navy.  Chapter  III  will  address  the 
functional  requirements  and  design  of  the  database  schema.  Chapter  IV  will 
analyze  the  potential  Web-enablement  technologies  and  delineates  the  best 
methodology.  Chapter  V  will  address  the  design  and  integration  of  the  database. 
Chapter  VI  will  be  a  conclusion  and  will  include  recommendations  for  future 
research. 


1  In  a  Naval  Administration  message  dated  June  17,  2005,  the  Chief  of  Naval  Operations 
transferred  management  of  PQS  to  NPDC  in  Norfolk,  VA. 
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II.  PROBLEM  ANALYSIS 


A.  CURRENT  PQS  MANAGEMENT  PROCESS 

Currently,  the  IP  Personnel  Qualification  System  is  paper-based.  The 
process  requires  candidates  for  the  IP  Intermediate  Qualification,  for  example,  to 
carry  around  a  79-page  book  to  designated  Subject  Matter  Experts  (SME)  who 
test  the  knowledge  of  the  candidate  and  certify  by  his  or  her  signature  that  the 
candidate  possesses  the  required  knowledge  for  that  qualification.  The  Director 
of  the  IP  Center  of  Excellence  (IPCOE)  must  approve  SMEs  in  writing.  SMEs 
may  be  enlisted,  officer,  or  civilian.  Enlisted  SMEs  may  be  of  any  rank  above  E-6 
as  long  as  they  come  from  two  enlisted  ratings,  IT,  or  ET.  Officer  SMEs  must 
come  from  the  following  communities: 

•  Information  Professional  (160X) 

•  Surface  Electronics  Limited  Duty  Officer  [LDO]  (61 8X) 

•  Surface  Communications  LDO  (61 9X) 

•  Data  Processing  LDO  (642X) 

•  Submarine  Electronics  LDO  (628X) 

•  Submarine  Communications  LDO  (629X) 

•  Surface  Electronics  Warrant  Officer  (7 1 8X) 

•  Surface  Communications  Warrant  Officer  (7 1 9X) 

•  Submarine  Electronics  Warrant  Officer  (728X) 

•  Data  Processing  Warrant  Officer  (742X) 

However,  Commanding  Officers  (COs)  of  Naval  Computer  and 
Telecommunications  Master  Stations  (NCTAMS)  and  Numbered  Fleet  C4I  (Navy 
Office  Code  N6)  Officers  may  determine  an  additional  mechanism  for  identifying 
SMEs  that  do  not  meet  the  above  criteria.  (Commander,  Naval  Network  Warfare 
Command  2003,  7) 

Upon  completion  of  all  of  the  signatures  in  the  PQS  book  (qualbook), 
candidates  for  the  Basic  and  Intermediate  Qualifications  request  the  convening  of 
a  Qualification  Review  Board.  The  purpose  of  the  board  is  to  demonstrate  that 
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the  candidate  possesses  baseline  knowledge  required  for  that  qualification.  The 
Basic  Qualification  is  not  “intended  to  be  a  rigorous  examination  of  all  IP  [core 
competencies]  but  instead  an  introduction  to  basic  skills,  vocabulary, 
organizational  relationships,  references,  and  other  resource  material.” 
(Commander,  Naval  Network  Warfare  Command  2003,  4)  However,  the  purpose 
of  the  IP  Intermediate  Qualification  Review  Board  is  to  demonstrate  baseline 
knowledge  in  each  of  the  core  competency  areas,  including: 

•  Communications 

•  Information  Systems  Theory  and  Applications 

•  Databases  and  Network  Fundamentals 

•  Knowledge  Management 

•  C4I  Systems  and  Infrastructure 

•  Information  Assurance  (Commander,  Naval  Network  Warfare 
Command  2003,  4) 

After  a  candidate  attains  the  requisite  signatures,  thereby  proving  that  he 
or  she  possesses  the  requisite  knowledge  for  the  pertinent  qualification,  the 
candidate  then  presents  the  qualbook  to  his  mentor.  The  mentor  examines  the 
book  and  if  he  finds  it  to  be  complete  and  genuine,  signs  page  two,  certifying  that 
the  candidate  met  the  requirements  of  the  qualification  and  recommending 
commencement  of  a  Review  Board.  After  the  candidate  passes  the  board,  the 
board  president  signs  page  two,  recommending  the  candidate  for  qualification. 
Page  two  of  the  qualification  book  is  sent  to  NETWARCOM  in  Norfolk,  VA.  If  the 
qualification  in  question  is  a  Basic  or  Intermediate  qualification,  NETWARCOM’s 
Training  Officer  then  signs  page  two,  enters  the  candidate’s  name  in  a  flat  file 
spreadsheet,  informs  the  IP  detailer  of  the  qualification,  and  sends  the  signed 
copy  back  to  candidate.  The  IP  detailer  then  enters  into  the  candidate’s  record 
an  Additional  Qualification  Designation  (AQD).  The  process  is  slightly  different 
depending  on  the  type  of  qualification.  The  process  for  each  type  is  covered  in 
detail  in  Chapter  II. 

The  AQD  is  a  code  that  “when  entered  in  an  officer's  record,  identifies  the 
attainment  of  skills  and  knowledge,  as  recognized  by  competent  authority,  in 
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addition  to  those  identified  by  the  officer  designator,  grade,  NOBC  or 
subspecialty.”  (Commander,  Naval  Personnel  Command  2004,  D-1)  The  AQDs 
that  may  be  assigned  to  Information  Professionals  are  GA1 ,  GA2,  and  GA3.  The 
letter  G  indicates  that  the  AQD  pertains  to  Information  Professionals.  The  letter 
A  is  a  sequential  indicator  of  an  AQD  subject  area.  At  present,  IPs  have  only  one 
subject  area,  A,  pertaining  to  qualifications.  The  numbers  1,  2,  and  3,  apply  to 
the  Basic,  Intermediate,  and  Advanced  qualifications,  respectively. 

B.  EXPLANATION  OF  THE  PQS  MANAGEMENT  CHALLENGE 

Like  most  programs,  the  Personnel  Qualification  System  involves  a  certain 
number  of  challenges  that  have  the  potential  to  impede  effective  management. 
The  challenges  most  pertinent  to  effective  management  are  authenticity, 
reporting,  and  data  security. 

1.  Authenticity 

Depending  on  which  school  of  thought  you  belong  to,  there  are  between 
three  and  five  attributes  that  make  up  information  security.  Proponents  of  the 
“big  three”  school  of  though  believe  that  secure  information  systems  ensure  the 
attributes  confidentiality,  integrity  and  authenticity.  “Big  four”  proponents  add 
availability  to  the  list,  and  “big  five”  proponents  add  non-repudiation  as  well  as 
availability.  (Fulp  2005,  3-6)  “Big  four”  proponents  believe  that  non-repudiation  is 
achieved  with  a  combination  of  the  attributes,  integrity  and  authenticity.  As  the 
author  is  a  subscriber  to  the  “big  four”  school  of  thought,  any  discussions  of 
information  security  will  ignore  non-repudiation. 

They  are  defined  as  follows: 

•  Confidentiality:  unauthorized  users  are  not  able  to  observe  the 
information 

•  Integrity:  information  cannot  be  maliciously  or  accidentally  altered 
without  its  owner’s  or  user’s  knowledge 

•  Authenticity:  the  stated  or  purported  originator  of  the  information  is  the 
true  originator 

•  Availability:  information  is  accessible  in  a  reasonable  amount  of  time 
(Fulp  2005,  3-6) 
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Since  the  current  PQS  system  is  paper-based,  the  responsibility  of 
maintaining  confidentiality  (if  that  has  been  a  concern),  integrity,  and  availability 
has  been  the  responsibility  of  the  candidate.  Those  attributes,  largely,  have  been 
attained  using  physical  security:  the  owner  maintained  control  of  the  qualbook. 

Heretofore,  ensuring  the  authenticity  of  signatures  has  been  the 
responsibility  of  the  review  board;  part  of  the  board  process  involves  the  board 
members’  inspection  of  the  signatures  in  the  candidate’s  qualbook.  It  has  been 
next  to  impossible  to  ensure  that  every  signature  in  every  qualbook  is  authentic; 
many  signatures  are  completely  illegible.  Also,  board  members  do  not  have  the 
expertise  necessary  to  be  able  to  spot  signature  forgeries.  Thus,  the  qualbook 
has  been,  largely,  a  formality,  with  the  review  board  being  a  more  reliable 
indicator  of  a  candidate’s  knowledge. 

With  the  advent  of  public  key  infrastructure  (PKI)  and  digital  signatures,  a 
method  of  ensuring  the  authenticity  of  qualification  signatures  has  become 
viable.  Since  PKI  could  enable  the  indisputable  authenticity  of  qualbook 
signatures,  the  qualbook  becomes  a  much  more  reliable  indicator  of  a 
candidate’s  knowledge,  perhaps  rendering  the  review  board  redundant.  Because 
the  oral  review  board  tests  a  candidate’s  public  speaking  abilities  in  addition  to 
his  knowledge,  the  complete  removal  of  review  boards  from  the  process  seems 
unlikely.  However,  the  Basic  qualification  happens  for  junior  IPs  at  ranks  of 
Lieutenant  and  below,  where  public  speaking  is  considerably  less  important.  The 
Web-enablement  of  the  qualbook  with  PKI  digital  signatures  could  render  the 
review  board  unnecessary  for  basic  qualifications.  Further  examination, 
including  a  Business  Process  Reengineering  study,  will  be  conducted  in  later 
chapters. 

2.  Reporting 

Reporting  is  an  important  aspect  of  managing  any  Navy  program.  Often 

program  managers  want  to  be  apprised  of  the  current  state  of  the  programs  over 

which  they  have  purview.  A  common  tool  used  to  convey  such  information  is  the 

report;  an  example  is  the  SHARP  (Sierra  Hotel  Aviation  Readiness  Program) 

application.  SHARP  captures  data  about  all  Navy  aviation  operations  in  a 
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database.  TYCOMS  (type  commanders)  can  then  execute  reports  that 
demonstrate  the  state  of  any  unit’s  mission  readiness,  for  example.  In  this  case, 
SHARP  apprises  TYCOMS  (program  managers)  of  the  state  of  programs  under 
their  purview:  training,  readiness,  qualifications,  and  operations. 

No  such  reporting  capability  exists  for  NETWARCOM.  Thus,  if 
NETWARCOM’s  training  officer  wanted  to  know  exactly  how  many  of  the  Navy’s 
IPs  have  completed  the  Basic  Qualification  or  more  importantly,  how  many  of  the 
Navy’s  IPs  are  delinquent  in  attaining  a  qualification,  there  is  no  simple  way  for 
him  to  ascertain  such  information.  This  makes  management  of  the  PQS  very 
ineffective. 

3.  Data  Redundancy 

Attaining  all  of  the  signatures  required  for  a  long  qualification  such  as  the 
Intermediate,  can  take  as  long  as  three  years.  There  is  no  systematic  method  for 
maintaining  backups  of  signatures.  Thus,  if  a  candidate  finds  himself  the  victim 
of  a  hurricane  or  other  catastrophe  and  his  paper  qualbook  is  destroyed,  it  is 
conceivable  that  he  would  have  to  re-acquire  over  300  signatures  adding  years 
to  the  attainment  of  the  intermediate  qualification.  A  prudent  IP  would  certainly 
maintain  his  own  backup  in  the  form  of  photocopies  of  the  qualbook.  However, 
that  is  expensive  and  a  waste  of  paper,  when  the  same  function  can  be  fulfilled 
electronically.  Why  not  make  this  function  systematic? 

C.  BUSINESS  PROCESS  REENGINEERING  AND  KNOWLEDGE  VALUE 

ADDED (KVA) 

The  term  business  process  reengineering  (BPR)  originated  in  a  book  by 
Michael  Hammer  and  James  Champy  entitled  Reengineering  the  Corporation.  In 
it,  the  authors  outlined  a  methodology  to  analyze  the  workflows  of  an  enterprise, 
and  re-design  them  with  the  aim  of  increasing  the  efficiency  of  the  enterprise’s 
processes.  There  are  many  guiding  principles  of  BPR.  One  of  the  most  useful 
and  commonsensical  is  the  principle  of  streamlining  processes  by  “removing 
waste,  simplifying,  and  consolidating  similar  activities.”  Another  useful  principle 
is  that  of  “Lose  Wait,”  which  attempts  to  “squeeze  out  waiting  time  in  process 
links  to  create  value.”  (El  Sawy  2001,  57) 
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Knowledge  Value  Added  (KVA)  is  a  methodology  for  valuing  processes 
(workflows)  within  an  enterprise.  “KVA  analysis  produces  a  return-on-knowledge 
(ROK)  ratio  to  estimate  the  value  added  by  given  knowledge  assets  regardless  of 
where  they  are  located...”  (Housel  and  Bell  2001,  91)  Determining  relative 
values  between  processes  allows  a  business  process  reengineer  to  focus  his 
efforts  where  they  will  pay  the  highest  dividends. 

The  essence  of  KVA  is  that  knowledge  utilized  in  corporate  core 
processes  is  translated  into  numerical  form.  This  translation  allows 
allocation  of  revenue  in  proportion  to  the  value  added  by  the 
knowledge,  as  well  as  the  cost  to  use  that  knowledge.  Tracking  the 
conversion  of  knowledge  into  value,  while  measuring  its  bottom-line 
impacts,  enables  managers  to  increase  the  productivity  of  these 
critical  assets.  (Housel  and  Bell  2001, 91) 

KVA  allows  a  reengineer  to  obtain  the  most  “bang  for  the  buck”  by 
concentrating  his  efforts  on  those  processes  that  add  the  most  value  to  the 
organization  or  by  allowing  him  to  eliminate  processes  that  provide  relatively  little 
value.  In  this  instance  the  word,  value  means  the  ability  of  the  process  to  create 
knowledge.  The  business  process  “learns  from  the  participants  it  interacts  with 
each  time  there  is  an  interaction.”  (El  Sawy  2001,  49)  Using  KVA  to  enhance 
BPR  has  the  potential  to  drastically  improve  the  effectiveness  of  any 
reengineering  efforts. 

D.  AS-IS  PROCESS  WORKFLOWS  INVOLVED  IN  PQS  PROGRAM 

Generally,  business  process  reengineering  looks  at  three  scenarios.  The 
first  scenario  is  that  of  the  process  in  its  current  state,  its  as-is  state.  The  second 
scenario,  the  to-be  state,  represents  the  process  after  one  or  more  changes  have 
been  made  that  improve  it  in  an  incremental,  but  immediate  way.  The  third 
scenario  models  the  process  after  radical  and  far-reaching  changes  have  been 
made  to  it. 

The  workflows  associated  with  the  Basic,  Intermediate,  and  Advanced 
Qualifications  follow.  They  are  intended  to  give  enough  detail  to  adequately 
describe  the  processes  involved  without  losing  the  audience  in  the  minutiae.  For 
each  qualification,  three  workflows  will  be  presented — one  describing  the  as-is 
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process,  one  describing  the  to-be  process  and  one  describing  the  radical 
process. 

1.  Basic  Qualification 

From  the  date  an  IP  is  designated  as  such,  he  has  6  months  to  complete 
the  Basic  Qualification.  The  steps  are  as  delineated  in  Figure  1.  Naval  Network 
Warfare  Command’s  Training  Officer  approves  all  Basic  Qualifications.  The 
Training  Officer  has  bee  delegated  “by  direction”  authority  from  the  Human 
Capital  Strategy  Officer.  Figure  1  outlines  the  process  in  more  detail. 


6  mos. 


Figure  1 .  Basic  Qualification  As-ls  Workflow 

2.  Intermediate  Qualification 

IPs  have  three  years  from  the  date  of  their  designation  to  complete  the 
Intermediate  Qualification.  The  Intermediate  is  similar  to  the  Basic  in  that  it 
involves  a  board  process.  However,  the  board  does  not  include  the  presentation 
of  a  point  paper.  NETWARCOM’s  Training  Officer  also  has  “by  direction” 
authority  for  Intermediate  Qualifications.  Figure  2  outlines  the  process  in  more 
detail. 
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3  yrs. 


Figure  2.  Intermediate  Qualification  As-ls  Workflow 

3.  Advanced  Qualification 

Advanced  Qualifications  are  different  from  Basic  and  Intermediate 
Qualifications  in  that  there  is  no  requirement  to  have  SMEs  sign  off  on 
knowledge  line  items.  Rather,  the  Advanced  Qualification  involves  the 
attainment  of  Functional  Area  Qualifications  (FAQ).  FAQs  are  comprised  of 
approximately  32  different  qualifications  or  achievements.  Examples  include  the 
completion  of  a  Space  Operations  Masters  Degree,  the  attainment  of  the 
Certified  Information  Systems  Security  Professional  qualification,  the  completion 
of  a  tour  as  a  IP  Commanding  Officer,  and  the  completion  of  a  tour  as  Strike 
Group  Knowledge  Manager. 

Additionally,  there  is  no  requirement  for  a  review  board.  When  the  IP  has 
achieved  four  of  the  FAQs,  he  sends  the  evidence  of  completion  to 
NETWARCOM,  where  the  Training  Officer  reviews  it  before  sending  it  on  to  the 
Human  Capital  Strategy  Officer.  Figure  3  outlines  the  process  in  more  detail. 
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Figure  3.  Advanced  Qualification  As-ls  Workflow 

E.  AS-IS  KVA  ANALYSIS 

1.  Basic  As-is  Process 

Figure  4  is  a  spreadsheet  showing  the  analysis  of  the  knowledge  value 
added  by  each  subprocess  in  the  basic  qualification.  Return  on  Knowledge  is 
calculated  much  like  a  business  return  on  investment  would  be:  benefits  divided 
by  costs.  In  this  case,  the  benefit  is  the  knowledge  held  in  the  process;  the  cost 
is  the  time  required  to  execute  that  knowledge.  The  return  on  knowledge  (ROK) 
column  is  color-coded  based  on  the  results.  ROKs  above  the  average  ROK  (at 
the  bottom  of  the  column)  are  colored  green.  Those  below  the  average  are 
colored  red. 

The  most  valuable  subprocess  in  the  Basic  Qualification  is  the  collection 
of  signatures  and  the  significant  learning  that  accompanies  it.  The  next 
processes  with  the  highest  ROK  are  the  last  two,  filing  the  Page  Two  and 
entering  the  AQDs  into  the  service  records.  This  is  due  to  the  relatively  large 
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differences  in  the  time  it  takes  to  learn  the  subprocess  (the  benefit)  and  the  time 
it  takes  to  execute  it  (the  cost). 

2.  Intermediate  As-is  Process 

The  as-is  process  for  the  Intermediate  Qualification  has  been  analyzed 
using  KVA  and  the  results  are  depicted  in  Figure  5.  As  might  be  expected,  the 
most  valuable  part  of  the  process  is  the  subprocess  involving  the  collection  of 
knowledge  and  signatures  that  certify  the  possession  of  said  knowledge.  Like  in 
the  basic  qualification,  there  are  a  lot  of  subprocesses  that  add  much  less  value 
to  the  overall  qualification  process.  Those  processes  will  get  more  attention  in 
the  next  section,  the  incrementally  changed  to-be  process. 

3.  Advanced  As-is  Process 

The  Advanced  Qualification  process  is,  by  far,  the  most  knowledge- 
creating  of  the  three.  Its  overall  return  on  knowledge  is  enormous  at  1356%. 
The  next  highest  is  the  Intermediate  at  40%,  followed  by  the  Basic  at  34%.  The 
Advanced  has  such  a  high  ROK  due  to  the  subprocess,  Functional  Area 
Qualification  collection,  which  has  a  ROK  of  3761%.  This  comes  from  the  huge 
average  amount  of  time  required  to  acquire  these  qualifications  and  the  relatively 
small  amount  of  time  required  to  execute  the  knowledge  gained. 


14 


Cognizance 

Subprocess 

Nbrof 

pers 

Actual  Actual 

Actions  Work  Learning 

per  Week  Time  (hrs)  Time  (hrs) 

IT  % 

Total 
Learning 
Time  (hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Signature  collection  /  learning 

118 

2.04 

0.17 

0.67 

30% 

0.87 

208.79 

40.15 

52% 

2 

Write  point  paper 

118 

0.04 

3.00 

4.00 

30% 

5.20 

25.57 

14.75 

17% 

3 

Present  point  paper 

118 

0.04 

2.00 

2.00 

30% 

2.60 

12.78 

9.83 

13% 

4 

Request  review  board 

118 

0.04 

0.08 

0.03 

50% 

0.05 

0.25 

0.41 

6% 

5 

Attend  review  board 

118 

0.04 

1.00 

1.00 

0% 

3.00 

0.29 

0.29 

10% 

6 

Review  Board  Members 

Review  qualbook 

3 

2.27 

0.17 

0.17 

0% 

0.17 

1.13 

1.13 

10% 

7 

Attend  presentation  /  review  board 

3 

2.27 

1.10 

1.00 

0% 

1.00 

6.81 

7.49 

9% 

8 

IP  Community  Support 

Rate  candidate  performance 

3 

2.27 

0.17 

0.33 

0% 

0.33 

2.27 

1.13 

20% 

9 

Senior  Analyst 

Receive  page  two 

1 

2.27 

0.03 

0.03 

50% 

0.05 

0.11 

0.08 

15% 

10 

IP  Community  Support 

Handoff  to  Training  Officer 

1 

2.27 

0.02 

0.03 

0% 

0.03 

0.08 

0.04 

20% 

11 

Training  Officer 

Review  and  sign  page  two 

1 

2.27 

0.17 

0.50 

0% 

0.50 

1.13 

0.38 

30% 

12 

IP  Community  Support 

Handoff  to  Analyst 

1 

2.27 

0.02 

0.03 

0% 

0.03 

0.08 

0.04 

20% 

13 

Senior  Analyst 

Fax  to  detailer's  assistant 

1 

2.27 

0.17 

0.25 

50% 

0.38 

0.85 

0.38 

23% 

14 

File  Page  two 

1 

2.27 

0.03 

0.13 

0% 

0.13 

0.30 

0.08 

40% 

15 

Detailer's  Assistant 

Enter  AQD  in  service  record 

1 

2.27 

0.07 

0.17 

60% 

0.27 

0.61 

0.15 

40% 

261.05  76.33  34% 


Assumptions: 

Line  3:  Presenting  point  paper  requires  at  least  one  rehearsal  of  one  hour  in  length.  AWT  includes  amount  of  time  required  to  develop  PPT  slides 
Lines  5-14:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 

Lines  1-4:  Number  of  completions  divided  by  1.5  years 
Line  2:  ALT  includes  amount  of  time  required  to  research  topic. 

Line  6:  ALT  includes  at  least  one  hour  to  sit  in  on  a  board  as  an  observer. 

Line  6:  ALT  includes  one  hour  of  "murder  board”  time 


Figure  4.  Basic  Qualification  KVA  Analysis  —  As  Is 
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Cognizance 

Subprocess 

Nbr 

of 

pers 

Actions 

per 

Week 

Actual 

Work 

Time 

Actual 

Learning 

Time 

IT  % 

1  otal 
Learning 
Time  (hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Signature  collection  /  learning 

13 

2.96 

0.17 

0.75 

30% 

0.98 

36.58 

6.25 

59% 

2 

Request  review  board 

13 

0.01 

0.08 

0.03 

50% 

0.05 

0.00 

0.01 

6% 

3 

Review  Board 

Attend  review  board 

13 

0.01 

3.00 

3.00 

0% 

3.00 

0.29 

0.29 

10% 

4 

Members 

Review  qualbook 

3 

0.26 

0.25 

0.08 

0% 

0.08 

0.07 

0.20 

3% 

5 

Attend  review  board 

3 

0.26 

3.00 

0.02 

0% 

0.02 

0.01 

2.38 

0% 

6 

IP  Community  Support 

Rate  candidate  performance 

3 

0.26 

0.17 

0.33 

0% 

0.33 

0.26 

0.13 

20% 

7 

Senior  Analyst 

Receive  page  two 

1 

0.26 

0.03 

0.03 

50% 

0.05 

0.01 

0.01 

15% 

8 

IP  Community  Support 

Handoff  to  Trng  Officer 

1 

0.26 

0.02 

0.03 

0% 

0.03 

0.01 

0.00 

20% 

9 

Training  Officer 

Review  and  sign  page  two 

1 

0.26 

0.25 

1.00 

0% 

1.00 

0.26 

0.07 

40% 

10 

IP  Community  Support 

Handoff  to  Senior  Analyst 

1 

0.26 

0.02 

0.03 

0% 

0.03 

0.01 

0.00 

20% 

11 

Senior  Analyst 

Fax  detailer's  assistant 

1 

0.26 

0.17 

0.25 

50% 

0.38 

0.10 

0.04 

23% 

12 

File  page  two 

1 

0.26 

0.03 

0.13 

0% 

0.13 

0.04 

0.01 

40% 

13 

Detailer's  Assistant 

Enter  AQD  in  service  record 

1 

0.26 

0.07 

0.17 

60% 

0.27 

0.07 

0.02 

40% 

37.7  9.4  40% 


Assumptions: 

1  week  class=  40  hours 

Lines  2-4:  Number  of  personnel  is  number  of  completions  to  date  divided  by  1 .5  years 

Line  3:  Actual  learning  time  for  attend  review  board  is  the  time  required  to  perform  one  "murder"  board. 

Lines  4-13:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  6:  ALT  includes  three  hours  of  "murder  board"  time 


Figure  5.  Intermediate  Qualification  KVA  Analysis  —  As  Is 
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Nbr 

Actions 

Work 

Actual 

Total 

Cognizance 

Subprocess 

of 

pers 

per 

Week 

Time 

(hrs) 

Learning 
Time  (hrs) 

IT  % 

Learning 
Time  (hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Functional  Area  Qualification  collection 

42 

0.005 

3.00 

868.00 

30% 

1128.40 

227.85 

0.61 

3761% 

2 

Send  proof  of  completion  to  NWC 

42 

0.001 

0.50 

0.25 

50% 

0.38 

0.02 

0.03 

8% 

3 

IP  Community  Support 
Senior  Analyst 

Receive  page  two 
and  proof  of  completion 

1 

0.88 

0.02 

0.05 

50% 

0.08 

0.07 

0.01 

45% 

4 

Hand  off  to  Training  Officer 

1 

0.88 

0.02 

0.03 

0% 

0.03 

0.03 

0.01 

20% 

5 

IP  Community  Support 
Trng  Officer  and  Analyst 

Review  page  two 

2 

0.88 

0.33 

0.83 

20% 

1.00 

1.75 

0.58 

30% 

6 

Hand  off  to  Human  Capital  Manager 

1 

0.88 

0.02 

0.03 

0% 

0.03 

0.03 

0.01 

20% 

7 

Human  Capital 
Management  Officer 

Review  and  sign 

1 

0.88 

0.25 

0.67 

0% 

0.67 

0.58 

0.22 

27% 

8 

Hand  off  to  Analyst 

1 

0.88 

0.02 

0.03 

0% 

0.03 

0.03 

0.01 

20% 

9 

IP  Community  Support 
Senior  Analyst 

Fax  detailer's  assistant 

1 

0.88 

0.17 

0.25 

50% 

0.38 

0.33 

0.15 

23% 

10 

File  page  two 

1 

0.88 

0.03 

0.13 

0% 

0.13 

0.12 

0.03 

40% 

11 

Detailer's  assistant 

Enter  AQD  in  service  record 

1 

0.88 

0.07 

0.17 

60% 

0.15 

0.34 

0.04 

90% 

231.14  1.70  1356% 


Assumptions: 

1  week  class=  40  hours  learning  time 

It  takes  19  years  from  IP  accession  to  in-zone  0-6  consideration 

Line  1-2:  Number  of  personnel  is  the  number  of  completions  to  date  divided  by  1.5  years 

Line  5:  Review  learning  time  includes  time  to  learn  the  instruction 

Lines  3-1 1 :  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  1 :  ALT  is  the  average  of  the  different  learning  times  for  each  FAQ  (see  "TimeT oComplete"  tab) 

Line  1 :  AWT  is  the  average  of  the  times  required  to  get  a  certificate  (exams,  etc.) 


Figure  6.  Advanced  Qualification  KVA  Analysis  —  As  Is 
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F.  TO-BE  KVA  AND  WORKFLOWS 

The  subsections  below  illustrate  some  of  the  insights  gleaned  from  the 
analysis  of  the  as-is  processes  and  the  design  of  the  to-be  processes.  To 
reiterate,  to-be  process  designs  are  meant  to  be  incremental.  That  is,  the 
changes  are  meant  to  be  implemented  immediately,  giving  immediate  positive 
results. 

1.  Basic  To-Be  Process 

In  the  analysis  of  the  as-is  process  of  the  basic  qualification,  a  lot  of 
interesting  information  came  to  light.  The  basic  qualification  line  items 
emphasize  information  that  is  intended  to  introduce  the  new  accession  to  the 
community.  However,  the  basic  qualification  was  written  before  the  induction  of 
the  IP  Community  Basic  Course  in  March,  2005.  In  its  incremental  to-be  form, 
the  Basic  Qualification  should  be  devolved  of  its  introductory  material  in  lieu  of 
the  new  accession  acquiring  that  knowledge  in  the  Basic  Course. 

Currently,  the  only  path  for  a  prospective  IP  to  enter  the  community  is  via 
the  Lateral  Transfer  process.  Lateral  Transfer  is  not  possible  for  most 
prospective  IPs  until  they  have  been  in  the  Navy  about  4  years.  Thus,  the 
average  rank  of  new  community  accessions  is  Lieutenant  and  the  IP  Community 
has  a  dearth  of  officers  junior  to  Lieutenant.  However,  in  the  future,  more 
accessions  may  be  acquired  through  means  other  than  Lateral  Transfer, 
including  direct  accession  from  Officer  Candidate  School,  ROTC,  or  the  Naval 
Academy.  This  may  drive  the  average  rank  of  new  accessions  lower,  negating 
the  importance  of  public  speaking  ability.  Public  speaking  skills  are  very 
important  in  any  organization,  but  in  the  Navy,  they  are  most  important  at  the 
ranks  of  Lieutenant  and  above.  Thus,  the  subprocesses  of  writing  and 
presenting  a  point  paper  are  absent  from  the  Basic  Qualification  workflow  (see 
Figure  7),  but  can  be  found  unchanged  in  the  Intermediate  workflow. 

After  the  IP  submits  proof  of  completion  to  NETWARCOM,  the  process 
becomes  somewhat  mired  by  the  need  to  transfer  papers  between  the  IP 
Community  Support  Senior  Analyst  and  the  IP  Community  Support  Training 

Officer.  The  to-be  process  fixes  this  inefficiency  by  empowering  the  Senior 

17 


Analyst  to  review  and  sign  Page  Twos  on  his  own.  This  frees  the  more  highly 
educated  Training  Officer  to  work  on  the  more  strategic,  less  administrative  tasks 
appropriate  to  his  position. 

These  minor  changes  to  the  Basic  Qualification  result  in  increases  in 
overall  productivity.  The  subprocesses  that  were  removed  were  ones  that  added 
little  to  no  value  to  the  entire  process  and  that  added  to  the  time  required  to 
complete  the  processes.  By  removing  these  inefficient  practices,  the  productivity 
of  the  overall  process  can  be  increased  from  34%  in  the  as-is  to  52%  in  the  to-be 
(see  Figure  8). 


2  yrs. 


Figure  7.  Basic  Qualification  Workflow  —  To  Be 


2.  Intermediate  To-Be  Process 

The  incremental  changes  made  to  the  Intermediate  Qualification  mimicked 
some  of  those  carried  out  for  the  Basic  Qualification.  Like  in  the  Basic,  some 
inefficient  practices  were  built  into  the  workflow  and  tended  to  limit  the 
productivity  of  the  process.  The  IP  Community  Support  Senior  Analyst  was 
again  empowered  to  review  and  sign  intermediate  qualifications,  enabling  the 
Training  Officer  to  work  on  more  strategic  issues,  appropriate  to  his  training  and 
level  of  education. 
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However,  adding  the  tasks  of  writing  and  presenting  the  point  paper, 
subprocesses  that  take  a  lot  of  time  to  learn  as  well  as  a  lot  of  time  to  execute, 
resulted  in  a  decrease  in  the  Return  on  Knowledge  for  the  entire  Intermediate 
Qualification  process.  Some  might  say  that  the  point  paper  subprocesses  should 
be  eliminated  from  the  process  altogether  as  it  returns  little  knowledge  to  the 
organization.  But  they  would  be  wrong.  True,  the  ROK  for  this  subprocess  is 
relatively  low,  but  the  knowledge  and  experience  it  gives  to  the  officer  involved  is 
necessary  and  important  to  his  future  career,  whether  it  be  in  the  Navy  or  in  the 
civilian  sector. 


3  yrs. 


Figure  8.  Intermediate  Qualification  Workflow  —  To  Be 

3.  Advanced  To-Be  Process 

The  Advanced  Qualification  as-is  process  has,  by  far,  the  greatest  return 
on  knowledge  of  all  three  processes  at  1356%.  Such  huge  returns  would  make 
any  prudent  business  process  reengineer  hesitant  to  change  the  process.  But,  to 
fail  to  take  action  would  be  a  mistake,  because  significant  increases  in  Return  on 
Knowledge  can  be  realized  with  relatively  little  effort. 

Figure  9  illustrates  the  changes  made  to  the  Advanced  Qualification 
process.  One  change  was  made,  the  elimination  of  the  handoff  between  the  IP 
Community  Support  Senior  Analyst  and  the  Training  Officer  just  after  reception  of 
the  Page  Two  from  the  candidate  IP.  Eliminating  this  step  resulted  in  a  small 
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reduction  in  the  total  time  to  complete  the  process,  but  made  for  an  increase  in 
ROKof  16%. 


prior  to  in-zone  0-6  consideration-about  1 9  yrs 


Figure  9.  Advanced  Qualification  Workflow  —  To  Be 
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Actual  Actual  Total 


Nbr  Actions  Work  Learning  Learning 

of  per  Time  Time  Time 


Cognizance 

Subprocess 

pers 

Week 

(hrs) 

(hrs) 

IT  % 

(hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Electronic  signature  collection  /  learning 

118 

2.40 

0.17 

0.67 

50% 

1.00 

283.65 

47.28 

60% 

2 

Request  review  board 

118 

0.01 

0.08 

0.03 

50% 

0.05 

0.06 

0.09 

6% 

3 

Attend  review  board 

118 

0.01 

1.00 

1.00 

0% 

3.00 

0.29 

0.29 

10% 

4 

Review  Board  Members 

Attend  presentation  /  review  board 

3 

2.27 

1.10 

1.00 

0% 

1.00 

6.81 

7.49 

9% 

5 

IP  Community  Support 

Rate  candidate  performance 

3 

2.27 

0.12 

0.33 

0% 

0.33 

2.27 

0.79 

29% 

6 

Senior  Analyst 

Receive  page  two 

1 

2.27 

0.03 

0.03 

50% 

0.05 

0.11 

0.08 

15% 

7 

Review  and  sign  page  two 

1 

2.27 

0.17 

0.50 

0% 

0.50 

1.13 

0.38 

30% 

10 

Fax  to  detailer's  assistant 

1 

2.27 

0.17 

0.25 

50% 

0.38 

0.85 

0.38 

23% 

11 

File  Page  two 

1 

2.27 

0.03 

0.13 

0% 

0.13 

0.30 

0.08 

40% 

12 

Detailer's  Assistant 

Enter  AQD  in  service  record 

1 

2.27 

0.07 

0.17 

60% 

0.27 

0.61 

0.15 

40% 

296.09 

57.00 

52% 

Assumptions: 

Line  3:  ALT  includes  one  hour  of  "murder  board"  time 

Lines  4-12:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Lines  1-4:  Number  of  completions  divided  by  total  years. 

Line  4:  ALT  includes  at  least  one  hour  to  sit  in  on  a  board  as  an  observer. 


Figure  10.  Basic  Qualification  KVA  Analysis  —  To  Be 


21 


Cognizance 

Subprocess 

l\lbr 

of 

pers 

Action 

s  per 
Week 

Actual 

Work 

Time 

Actual 

Learning 

Time 

IT  % 

l  otal 
Learning 
Time 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Electronic  signature  collection/learning 

13 

0.94 

0.17 

0.75 

50% 

1.13 

13.43 

1.99 

68% 

2 

Write  point  paper 

13 

0.04 

3.00 

4.00 

30% 

5.20 

2.82 

1.63 

17% 

3 

Present  point  paper 

13 

0.04 

2.00 

2.00 

30% 

2.60 

1.41 

1.08 

13% 

4 

Review  Board 

Attend  review  board 

13 

0.01 

3.00 

3.00 

0% 

3.00 

0.29 

0.29 

10% 

5 

Members 

Attend  review  board 

3 

0.26 

2.00 

0.02 

0% 

0.02 

0.01 

1.58 

0% 

6 

IP  Community  Support 

Rate  candidate  performance 

3 

0.26 

0.17 

0.33 

0% 

0.33 

0.26 

0.13 

20% 

7 

Senior  Analyst 

Receive  page  two 

1 

0.26 

0.03 

0.03 

50% 

0.05 

0.01 

0.01 

15% 

8 

Review  and  sign  page  two 

1 

0.26 

0.25 

1.00 

0% 

1.00 

0.26 

0.07 

40% 

9 

Fax  detailer's  assistant 

1 

0.26 

0.17 

0.25 

50% 

0.38 

0.10 

0.04 

23% 

10 

File  page  two 

1 

0.26 

0.03 

0.13 

0% 

0.13 

0.04 

0.01 

40% 

11 

Detailer's  Assistant 

Enter  AQD  in  service  record 

1 

0.26 

0.07 

0.17 

60% 

0.27 

0.07 

0.02 

40% 

18.7  6.9  27% 


Assumptions: 

1  week  class=  40  hours 

Lines  1-4:  Number  of  personnel  is  number  of  completions  to  date  divided  by  1 .5  years 

Line  4:  Actual  learning  time  for  attend  review  board  is  the  time  required  to  perform  one  "murder"  board. 

Lines  5-1 1 :  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 

Line  5:  ALT  includes  three  hours  of  "murder  board"  time 

Figure  1 1 .  Intermediate  Qualification  KVA  Analysis  —  To  Be 
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Actions 

Actual 

Actual 

Total 

Cognizance 

Subprocess 

Nbr  of 
pers 

per 

Week 

Work 
Time  (hrs) 

Learning 
Time  (hrs) 

IT  % 

Learning 
Time  (hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Functional  Area  Qualification  collection 

42 

0.005 

3.00 

868.00 

30% 

1128.40 

227.85 

0.61 

3761% 

2 

Send  proof  of  completion  to  NWC 

42 

0.001 

0.50 

0.25 

50% 

0.38 

0.02 

0.03 

8% 

3 

IP  Community  Support 
Senior  Analyst 

Receive  page  two  and  proof  of 
completion 

1 

0.88 

0.02 

0.05 

50% 

0.08 

0.07 

0.01 

45% 

5 

IP  Community  Support 
Trng  Officer  and  Analyst 

Review  page  two 

2 

0.88 

0.33 

1.00 

40% 

1.40 

2.45 

0.58 

42% 

6 

Handoff  to  Human  Capital  Mgmt  Officer 

1 

0.88 

0.02 

0.03 

0% 

0.03 

0.03 

0.01 

20% 

7 

Human  Capital 
Management  Officer 

Review  and  sign 

1 

0.88 

0.25 

0.67 

0% 

0.67 

0.58 

0.22 

27% 

8 

Hand  off  to  Analyst 

1 

0.88 

0.02 

0.03 

0% 

0.03 

0.03 

0.01 

20% 

9 

IP  Community  Support 
Senior  Analyst 

Fax  detailer's  assistant 

1 

0.88 

0.17 

0.25 

50% 

0.38 

0.33 

0.15 

23% 

10 

File  page  two 

1 

0.88 

0.03 

0.13 

0% 

0.13 

0.12 

0.03 

40% 

11 

Detailer's  assistant 

Enter  AQD  in  service  record 

1 

0.88 

0.07 

0.17 

60% 

0.15 

0.34 

0.04 

90% 

231.81  1.69  1372% 


Assumptions: 

1  week  class=  40  hours  learning  time 

It  takes  19  years  from  IP  accession  to  in-zone  0-6  consideration 

Line  1-2:  Number  of  personnel  is  the  number  of  completions  to  date  divided  by  1 .5  years 

Line  5:  Review  learning  time  includes  time  to  learn  the  instruction 

Lines  3-1 1 :  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  1:  ALT  is  the  average  of  the  different  learning  times  for  each  FAQ  (see  "TimeToComplete''  tab) 

Line  1:  AWT  is  the  average  of  the  times  required  to  get  a  certificate  (exams,  etc.) 


Figure  12.  Advanced  Qualification  KVA  Analysis  —  To  Be 
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G.  RADICAL  KVA  AND  WORKFLOWS 

The  subsections  below  illustrate  some  of  the  insights  gleaned  from  the 
analysis  of  the  design  of  the  to-be  processes  and  the  design  of  the  radical 
processes.  To  reiterate,  radical  process  designs  are  meant  to  be  far-reaching 
and  ambitious.  That  is,  the  changes  are  meant  to  be  implemented  at  some  point 
in  the  future.  They  must  be  designed  without  regard  to  cost  or  feasibility  to 
ensure  that  a  truly  creative,  radical,  and  unrestricted  process  can  be  conceived 
and  hopefully  put  into  action. 

1.  Basic  Radical  Process 

The  Basic  Qualification  total  return  on  knowledge  increased  from  52%  in 
the  to-be  to  54%  in  the  radical.  While  this  is  not  a  staggering  improvement,  the 
changes  implemented  in  the  radical  design  reduced  the  total  process  execution 
time  by  about  two  hours. 

Figure  13  illustrates  the  radically  revised  Basic  Qualification  Workflow.  As 
is  clear  in  the  workflow,  several  steps  have  been  removed  or  revised. 


2  yrs. 


Figure  13.  Basic  Qualification  Workflow  —  Radical 

2.  Intermediate  Radical  Process 

The  Intermediate  Qualification  total  return  on  knowledge  recovered  from 
its  decrease  to  27%  in  the  to-be  to  37%  in  the  radical,  just  shy  of  its  original 
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percentage  in  the  as-is.  While  the  Intermediate  Qualification  changed  materially 
in  the  radical  design,  its  knowledge-creating  capacity  stayed  relatively  constant. 

Figure  14  illustrates  the  radically  revised  Intermediate  Qualification 
Workflow.  As  is  clear  in  the  workflow,  several  steps  have  been  removed  or 
revised. 


3  yrs. 


Figure  14.  Intermediate  Qualification  Workflow  —  Radical 

3.  Advanced  Radical  Process 

The  Advanced  Qualification’s  total  return  on  knowledge  increased 
dramatically  from  27%  in  the  to-be  to  1518%  in  the  radical.  Like  in  the 
Intermediate  and  Basic  Qualifications,  the  addition  of  a  mechanism  to 
automatically  trigger  the  database  at  Naval  Personnel  Command  to  add  an  AQD 
to  the  candidate’s  service  record  returned  a  lot  of  knowledge  to  its  respective 
process.  This  is  due,  in  large  part,  to  the  miniscule  amount  of  time  required  for 
the  process  to  execute. 

Figure  15  illustrates  the  radically  revised  Advanced  Qualification 
Workflow.  As  is  clear  in  the  workflow,  several  steps  have  been  removed  or 
revised. 
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prior  to  in-zone  0-6  consideration-about  1 9  yrs 


Figure  15.  Advanced  Qualification  Workflow  —  Radical 
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Cognizance 

Subprocess 

Nbr 

of 

pers 

Actions  Actual  Actual 

per  Work  Time  Learning 
Week  (hrs)  Time  (hrs) 

IT  % 

Total 

Learning 

Time  (hrs)  Num. 

Den. 

ROK 

1 

Qual  Candidate 

Electronic  signature  collection  /  learning 

118 

2.40 

0.17 

0.67 

50% 

1.00 

283.65 

47.28 

60% 

2 

Attend  review  board 

118 

0.01 

1.00 

1.00 

0% 

3.00 

0.29 

0.29 

10% 

Review  Board 

3 

Members 

Attend  presentation  /  review  board 

3 

2.27 

1.10 

1.00 

0% 

1.00 

6.81 

7.49 

9% 

4 

Rate  performance  (website  mouseclick) 

3 

2.27 

0.05 

0.33 

60% 

0.53 

3.63 

0.34 

107% 

IP  Community  Support 

5 

Senior  Analyst 

Review  and  digitally  sign  recommendation 

1 

2.27 

0.17 

0.75 

0% 

0.75 

1.70 

0.38 

45% 

6 

AQD  update  triggered  in  service  record 

1 

2.27 

0.02 

0.25 

80% 

0.45 

1.02 

0.04 

270% 

7 

Server  maintenance  &  backups 

1 

1.00 

0.17 

4.00 

50% 

6.00 

6.00 

0.17 

360% 

303.11 

55.98 

54% 

Assumptions: 

Line  2:  ALT  includes  one  hour  of  "murder  board"  time 

Lines  3-6:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  3:  ALT  includes  at  least  one  hour  to  sit  in  on  a  board  as  an  observer. 


Figure  16.  Basic  Qualification  KVA  —  Radical 
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Actual 

Actual 

1  otal 

Nbrof 

Actions 

Work 

Learning 

Learning 

Cognizance 

Subprocess 

pers 

per  Week 

Time 

Time  (hrs) 

IT  % 

Time  (hrs) 

Num. 

Den. 

ROK 

1 

Qual  Candidate 

Electronic  signature  collection  /  learning 

13 

0.94 

0.17 

0.75 

50% 

1.13 

13.43 

1.99 

68% 

2 

Write  point  paper 

13 

0.04 

3.00 

4.00 

30% 

5.20 

2.82 

1.63 

17% 

3 

Present  point  paper 

13 

0.04 

2.00 

2.00 

30% 

2.60 

1.41 

1.08 

13% 

4 

Attend  review  board 

13 

0.01 

3.00 

3.00 

0% 

3.00 

0.29 

0.29 

10% 

5 

Review  Board  Members 

Attend  review  board 

3 

0.26 

2.00 

0.02 

0% 

0.02 

0.01 

1.58 

0% 

6 

Rate  performance  (website  mouseclick) 

3 

0.26 

0.17 

0.08 

0% 

0.08 

0.07 

0.13 

5% 

7 

IP  Community  Support 
Senior  Analyst 

Review  and  digitally  sign  recommendation 

1 

2.27 

0.17 

0.75 

0% 

0.75 

1.70 

0.38 

45% 

8 

Update  AQD  in  NAVPERS  database 

1 

2.27 

0.02 

0.25 

80% 

0.45 

1.02 

0.04 

270% 

9 

Server  maintenance  &  backups 

1 

1.00 

0.17 

4.00 

50% 

6.00 

6.00 

0.17 

360% 

26.7 

7.3 

37% 

Assumptions: 

1  week  class=  40  hours 

Lines  1-4:  Number  of  personnel  is  number  of  completions  to  date  divided  by  1 .5  years 
Line  4:  Actual  learning  time  is  the  time  required  to  perform  one  "murder"  board. 

Lines  7-8:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  5:  ALT  includes  three  hours  of  "murder  board"  time 


Figure  17.  Intermediate  Qualification  KVA  —  Radical 


28 


Actions 

Actual 

Actual 

Total 

Nbr  of 

per 

Work 

Learning 

Learning 

Cognizance 

Subprocess 

pers 

Week 

Time  (hrs) 

Time  (hrs) 

IT  % 

Time  (hrs) 

Num. 

Den. 

ROK 

Qual  Candidate 

Functional  Area  Qualification  collection 

42 

0.005 

3.00 

868.00 

30% 

1128.40 

227.85 

0.61 

3761% 

Upload  proof  of  completion  to  NWC  server 

42 

0.005 

0.50 

0.25 

80% 

0.45 

0.09 

0.10 

9% 

Automatic  notification  to  Senior  Analyst 

42 

0.005 

0.02 

0.08 

80% 

0.15 

0.03 

0.00 

90% 

IP  Community  Support 

T mg  Officer  and  Analyst 

Review  proof  of  completion 

2 

0.88 

0.33 

1.17 

60% 

1.87 

3.27 

0.58 

56% 

Make  available  to  Human  Capital  Mgr 

1 

0.88 

0.01 

0.03 

80% 

0.06 

0.05 

0.01 

72% 

Human  Capital 
Management  Officer 

Review  and  sign  digitally 

1 

0.88 

0.25 

0.83 

60% 

1.33 

1.17 

0.22 

53% 

Update  AQD  in  NAVPERS  database 

1 

0.88 

0.02 

0.25 

80% 

0.45 

0.39 

0.01 

270% 

IP  Community  Support 
Senior  Analyst 

Server  maintenance  &  backups 

1 

1.00 

0.17 

4.00 

50% 

6.00 

6.00 

0.17 

360% 

232.9 

1.5 

1518% 

Assumptions: 

1  week  class=  40  hours  learning  time 

It  takes  19  years  from  IP  accession  to  in-zone  0-6  consideration 

Line  1-3:  Number  of  personnel  is  the  number  of  completions  to  date  divided  by  1 .5  years 
Line  5:  Review  learning  time  includes  time  to  learn  the  instruction 

Lines  5-8:  Number  of  actions  per  week  is  actual  (number  of  completed  quals  divided  by  weeks  the  program  has  been  in  force) 
Line  1 :  ALT  is  the  average  of  the  different  learning  times  for  each  FAQ  (see  "TimeToComplete"  tab) 

Line  1 :  AWT  is  the  average  of  the  times  required  to  get  a  certificate  (exams,  etc.) 


Figure  18.  Advanced  Qualification  KVA —  Radical 
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H.  RECOMMENDATIONS 


In  the  play,  King  Lear,  the  title  character  said,  “You  will  gain  nothing  if  you 
invest  nothing.”  That  statement  is  as  true  in  the  case  of  the  Electronic  Qualbook 
as  it  was  in  King  Lear.  If  nothing  is  done  to  improve  the  IP  Community’s 
personnel  qualification  system,  no  progress  will  be  made  toward  the  admirable 
goal  of  Net-Centric  Warfare.  The  IP  Community  cannot  afford  to  stagnate. 
Constant  improvement  must  be  the  steady-state  if  the  Navy  is  to  be  victorious  in 
future  wars.  Therefore,  constant  improvement  is  required  for  the  IP  Community 
as  well.  Web-enabling  the  Personnel  Qualification  System  is  the  next  step  in  the 
long  sequence  of  improvements  to  come. 

Comparison 

Figure  19  illustrates  the  improvements  in  return  on  knowledge  as  a  result 
of  the  to-be  and  radical  process  improvements.  Note  the  negative  improvement 
in  the  Intermediate  Qualification  from  the  as-is  to  the  to-be.  That  negative 
improvement  is  due  to  the  move  of  the  point  paper  and  point  paper  presentation 
from  the  Basic  Qualification  to  the  Intermediate  Qualification.  When  the  ROK  is 
considered  in  total,  it  increased  significantly  in  each  phase. 


As  Is 

ROK 

To  Be 

ROK 

change 

Radical 

ROK 

change 

Basic  Qualification 

34% 

52% 

51.9% 

54% 

4.2% 

Intermediate  Qualification 

40% 

27% 

-31.9% 

37% 

34.4% 

Advanced  Qualification 

1356% 

1372% 

1 .2% 

1518% 

10.6% 

Total 

1431% 

1451% 

1 .4% 

1609% 

10.9% 

Figure  19.  Comparison  of  the  ROK  in  each  of  the  qualifications  between  the  as-is, 

to-be  and  radical  designs. 


30 


III.  DECISION  ANALYSIS 


A.  COMPARISON  OF  POSSIBLE  SOFTWARE  AND  HARDWARE 

SOLUTIONS 

There  are  three  basic  information  technology  architectures.  They  are 
mainframe  architecture,  file  server  architecture  and  client/server  architecture. 
Between  20  and  50  years  ago,  when  computing  was  a  new  technology, 
information  technology  architecture  was  monolithic,  based  on  mainframe 
computers.  Mainframes  were  exorbitantly  expensive,  difficult  to  operate,  often 
unreliable,  and  required  operators  with  extensive  training.  What’s  more,  they 
were  unable  to  share  their  data  or  distribute  the  load  of  large  computing  tasks. 
Today,  IT  architecture  is,  invariably,  built  on  some  form  of  a  distributed  system. 
“A  distributed  system  is  one  in  which,  the  components  of  an  information  system 
are  distributed  to  multiple  locations  in  a  computer  network.”  (Whitten,  Bentley  and 
Dittman  2004,  509)  The  file  server  and  client/server  architectures  are  forms  of 
distributed  systems.  However,  distributed  systems  are,  themselves,  complicated 
and  more  difficult  to  implement  than  a  centralized,  monolithic  system.  So  why 
bother?  The  most  important  benefits  of  a  distributed  system  include: 

•  They  move  information  and  services  closer  to  the  customers  that  need 
them. 

•  They  consolidate  the  incredible  power  resulting  from  the  proliferation  of 
personal  computers  (PC)  across  an  enterprise.  Many  of  these  PCs  are 
only  used  to  a  fraction  of  their  processing  potential  when  used  alone. 

•  They  are  more  user-friendly  because  they  use  the  PC  as  the  user 
interface  processor. 

•  They  are  much  less  expensive  than  mainframes.  (Whitten,  Bentley  and 
Dittman  2004,  ,  510) 

The  client/server  architecture  is  the  most  prevalent  architecture  today.  It 
can  be  broken  down  into,  at  least  three  components,  the  2-tier  client/server  with 
distributed  presentation,  the  2-tier  with  distributed  data,  and  the  n-tier 
client/server.  The  term,  tier,  refers  to  the  layers  in  a  client/server  architecture. 
These  layers  include: 
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•  Presentation — the  actual  user  interface  or  presentation  of  inputs  and 
outputs  to  the  user 

•  Presentation  Logic — the  processing  that  must  be  done  to  generate  the 
presentation. 

•  Application  Logic — the  processing  required  to  support  the  actual 
business  application  and  rules. 

•  Data  Manipulation — the  commands  and  logic  required  to  store  and 
retrieve  data  to  and  from  the  database. 


•  Data — the  actual  stored  data  in  a  database.  (Whitten,  Bentley  and 
Dittman  2004,  ,  510) 
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Figure  20.  Types  of  distributed  computing  and  systems  (after  Whitten,  Jeffrey  L.,  et. 

al.,  Systems  Analysis  and  Design  Methods,  figure  13-4) 
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Both  the  mainframe  and  the  file  server  architectures  are  patently 
inappropriate  for  a  Web-enabled  qualbook.  By  definition,  such  an  application 
requires  a  web,  a  network  of  computers.  Therefore,  I  will  only  address  the 
feasibility  of  two-tier  and  n-tier  client/server  architectures. 

A  client/server  system  is  a  solution  in  which  the  presentation,  presentation 
logic,  application  logic,  data  manipulation,  and  data  layers  are  distributed 
between  client  PCs  and  one  or  more  servers.  (Whitten,  Bentley  and  Dittman 
2004,  512)  The  client  PCs  may  be  comprised  of  desktops,  workstations,  laptops, 
thin  clients,  fat  clients,  mobile  phones,  or  handheld  computers.  A  server  in  the 
client/server  model  is  generally  a  very  capable  machine.  Sometimes, 
mainframes  play  the  role  of  servers.  Typically,  servers  are  powerful  workstations 
or  rack-mounted  computers  running  operating  systems  that  enable  them  to  act 
as  servers.  Often,  those  operating  systems  are  Windows  Server  2003,  UNIX, 
Linux,  or  Mac  OS  X  Server.  Listed  below  are  several  different  types  of  servers. 
Sometimes,  different  server  functionalities  reside  on  the  same  machine.  Often, 
they  are  split  among  different  machines. 

•  Database  Server — hosts  one  or  more  shared  databases  (like  a  file 
server)  but  also  executes  all  database  commands  and  services  for 
information  systems  (unlike  a  file  server).  Most  database  servers  host 
an  SQL  database  engine  such  as  Oracle,  Microsoft  SQL  Server,  or 
IBM  Universal  Database. 

•  Transaction  Server — hosts  services  that  ultimately  ensure  that  all 
database  updates  for  a  single  business  transaction  succeed  or  fail  as  a 
whole.  Examples  include  IBM  CICS,  BEA  Tuxedo,  and  Microsoft 
Transaction  Server. 

•  Application  Server — hosts  application  logic  and  services  for  an 
information  system.  It  must  communicated  on  the  front  end  with  the 
clients  (for  presentation)  and  on  the  back  end,  with  database  servers 
for  data  access  and  update. 

•  Messaging  or  Groupware  Server — hosts  services  for  email, 
calendaring,  and  other  work  group  functionality.  Examples  include 
Lotus  Notes  and  Microsoft  Exchange  Server. 

•  Web  Server — hosts  Internet  or  intranet  Web  sites.  It  communicates 
with  fat  and  thin  clients  by  returning  to  them  documents  (in  formats 
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such  as  HTML  and  data  (in  formats  such  as  XML).  Examples  include 
Microsoft  Internet  Information  Server  and  Apache  HTTP  Server. 
(Whitten,  Bentley  and  Dittman  2004,  ,  513) 

A  two-tier  client/server  architecture  can  be  further  delineated  by  whether  it 
distributes  the  presentation  of  the  data  or  the  data  itself.  A  distributed 
presentation  system  is  a  solution  in  which  the  presentation  and  presentation  logic 
layers  are  shifted  from  the  server  of  a  legacy  system  to  reside  on  the  client. 
(Whitten,  Bentley  and  Dittman  2004,  513)  Often,  two-tier  systems  that  distribute 
the  presentation  of  data  simply  take  the  text  output  of  legacy  mainframe  systems 
and  re-present  it  graphically.  For  this  reason,  it  is  sometimes  referred  to  as  “the 
poor  man’s  client/server.”  (Whitten,  Bentley  and  Dittman  2004,  513) 


< - First  Tier - > 


< - Second  Tier - > 
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Figure  21 .  Client/server  system:  Distributed  presentation  (after  Whitten,  Jeffrey  L., 
et.  al. ,  Systems  Analysis  and  Design  Methods,  figure  13-7) 
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With  a  distributed  data  system,  the  data  and  data  manipulation  layers 
remain  on  the  server,  but  the  application  logic,  presentation  logic,  and 
presentation  are  shifted  to  the  client.  It  is  the  simplest  form  of  a  true  client/server 
solution. 


First  Tier 


Second  Tier 


Figure  22.  Client/server  system:  Distributed  data  (after  Whitten,  Jeffrey  L.,  et.  al., 

Systems  Analysis  and  Design  Methods,  figure  13-8) 


As  the  number  of  clients  grows,  two-tier  systems  start  to  perform  poorly. 
These  performance  problems  are  related  to  the  inefficiency  of  executing  all  of  the 
application  logic  on  the  clients.  (Whitten,  Bentley  and  Dittman  2004,  516)  A 
three-tier  (or  n-tier)  system  places  the  data  and  data  manipulation  on  a  server 
that  is  separate  from  the  application  server.  The  client  handles  presentation  and 
presentation  logic.  This  results  in  a  more  efficient  and  scalable  architecture  than 
would  be  possible  in  a  two-tier,  file  server,  or  mainframe  system. 
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*CRUD  stands  for 
Create,  Read,  Update,  Delete 


Figure  23.  Client/server  system:  Distributed  data  and  application  (three  tiers),  (after 
Whitten,  Jeffrey  L.,  et.  al .,  Systems  Analysis  and  Design  Methods,  figure 

13-9) 

Whitten,  et.  al.  (2004),  states  that  the  most  difficult  aspect  of  the  three-tier 
system  is  deciding  how  to  partition  the  network.  Partitioning  is  the  act  of  splitting 
or  duplicating  application  components  across  the  network.  However,  Whitten 
also  states  that  new  computer-aided  software  engineering  (CASE)  tools  are 
making  this  task  much  simpler. 

A  three-tier  system  is  very  beneficial  because  the  clients  execute  a 
minimal  amount  of  the  business  logic,  making  their  configuration  very  simple.  In 
the  case  of  a  Web-based  qualbook  for  IPs,  there  is  no  way  the  administrator  of 
the  system  could  ever  get  access  to  all  of  the  clients  accessing  his  system.  Even 
if  he  could,  it  would  take  much  too  long  to  configure  the  400+  clients. 
Management  of  a  Web-based  qualbook  using  a  two-tier  or  other  architecture 
would  be  a  nightmare.  Therefore,  in  developing  the  prototype,  a  three-tier 
architecture  will  be  utilized. 
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Now  that  the  decision  to  use  a  three-tier  architecture  has  been  made,  it  is 
necessary  to  settle  on  a  specific  technological  implementation.  There  are 
several  page  scripting  and  database  technologies  available.  Page  scripts  are 
small  bits  of  code  embedded  in  HTML  pages  that  automate  the  behaviors  of  a 
Web  page.  Page  scripts  come  in  two  varieties:  client-side  scripts  and  server-side 
scripts. 

“Client-side  scripting  generally  refers  to  the  class  of  computer  programs 
on  the  Web  that  are  executed  client-side,  by  the  user's  Web  browser,  instead  of 
server-side... [Client-side  scripts]  enable  Web  pages  to  have  different  and 
changing  content  depending  on  user  input,  environmental  conditions  (such  as  the 
time  of  day),  or  other  variables.”  (Wikipedia  2005a)  “Server-side  scripting  is  a 
Web  server  technology  in  which  a  user's  request  is  fulfilled  by  running  a  script 
directly  on  the  Web  server  to  generate  dynamic  HTML  pages.  It  is  usually  used 
to  provide  interactive  Web  sites  that  interface  [with]  databases  or  other  data 
stores.”  (Wikipedia  2005c)  The  purpose  of  the  Web-enabled  qualbook  is  to 
provide  access  to  a  database  of  Information  Professional  qualifications. 
Therefore,  the  primary  enabling  technology  to  be  used  in  the  prototype  will 
consist  of  scripts  embedded  in  Web  pages  and  executed  on  the  server  (server- 
side). 

Of  the  page  scripting  technologies,  Java  Server  Pages  (JSP),  PHP: 
Hypertext  Preprocessor  (PHP),  Active  Server  Pages  (ASP),  Active  Server  Pages 
.NET  (ASP.NET),  and  ColdFusion  (CF)  are  the  most  prevalent.  The  database 
technologies  are  myriad,  but  the  most  prevalent  are  Microsoft  Access,  Microsoft 
SQL  Server,  MySQL,  and  Oracle  lOg.  In  order  to  serve  the  users  well,  it  will  be 
important  to  make  the  best  choice  among  these  technologies. 

1.  Java  Server  Pages 

JSP  is  a  part  of  a  software  technology  developed  by  Sun  Microsystems 
called  Java.  Traditionally,  in  order  for  software  developed  on  a  Windows  PC  to 
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run  on  a  Mac,  it  must  be  “ported”  to  the  Mac’s  computing  environment.2  Often, 
porting  software  to  different  computing  environments  is  expensive  and  time- 
consuming.  The  intent  of  Java  is  to  enable  inexpensive,  easy  portability  for 
traditional  computing  environments,  as  well  as  emerging  computing 
environments  such  as  handheld  computers,  digital  video  recorders,  mp3  players, 
and  Web-enabled  refrigerators.  In  the  parlance  of  Sun  Microsystems,  Java 
enables  “Write  Once,  Run  Anywhere  Technology.”  Software  written  in  Java  is 
compiled  to  “byte  code.”  That  byte  code  is  interpretable  by  the  Java  Virtual 
Machine  (JVM).  There  are  versions  of  JVM  available  for  many  computing 
environments.  Java  Applets  are  small  programs  sent  to  the  browser  by  a  Web 
server.  They  require  JVM  to  run  on  a  client.  JVM,  however,  is  not  required  in 
order  to  display  Java  Server  Pages  in  a  browser. 

JSP  uses  Java  Technology  to  produce  Web  sites  that  are  independent  of 
browser  type,  and  more  importantly,  of  server  type.  Proprietary  scripting 
languages,  such  as  ASP,  require  certain  server  software,  such  as  Microsoft’s 
Internet  Information  Server  (which  runs  only  on  Windows  machines),  to  run 
properly.  JSP’s  greatest  benefit  is  that  it  runs  on  any  server,  as  long  as  that 
server  has  Java  installed  on  it.  What’s  more,  a  license  for  Java  costs  nothing. 

As  far  as  performance  goes,  Dyck  (2000)  found  that  JSP  was  less  that  a 
third  the  speed  of  ASP  and  PHP  and  less  than  half  the  speed  of  ColdFusion. 
This  result  was  not  corroborated  by  El-Zoghabi,  et.  al.  (2004).  They  found  that 
JSP  (in  a  tie  with  ASP.NET)  was  the  best  performer  among  four  languages 
tested  (JSP,  PHP,  ASP,  and  ASP.NET),  but  only  when  it  was  used  in  conjunction 
with  Oracle  9i  (Oracle  1 0g  is  the  current  version). 

2.  PHP:  Hypertext  Preprocessor 

PHP  succeeds  an  older  product,  named  PHP/FI.  Initially,  Rasmus  Lerdorf 
created  PHP/FI  in  1995,  as  a  simple  set  of  Perl  scripts  for  tracking  accesses  to 
his  online  resume.  He  named  this  set  of  scripts  'Personal  Home  Page  Tools'. 

2  The  term  computing  environment  refers  to  the  combination  of  central  processing  unit, 
operating  system,  available  programming  languages,  and  hardware  available  on  a  type  of 
computer,  be  it  a  Mac,  SGI  Workstation,  mainframe,  etc. 
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He  subsequently  wrote  an  implementation  of  his  Personal  Home  Page  Tools  in  C 
which  was  able  to  communicate  with  databases.  He  called  this  implementation 
Personal  Home  Page  /  Forms  Interpreter  (PHP/FI).  (PHP  2003)  Since  then,  PHP 
has  had  several  version  releases.  The  latest,  PHP  5.0  was  released  in  July 
2004.  Today,  several  million  Web  sites  have  PHP  installed  on  their  server.  (PHP 
2003) 

PHP  is  an  open-source  page  scripting  language  that  was  developed  with 
the  intent  of  being  fast  and  easy,  yet  powerful.  PHP  can  be  used  on  all  major 
operating  systems  and  most  major  Web  servers  including  Apache  (used  in  Mac 
OS  X  as  well  as  others),  Microsoft  IIS,  and  Microsoft  Personal  Web  Server  (the 
precursor  to  IIS),  among  others.  PHP  also  supports  22  different  database 
technologies  as  well  as  those  that  use  the  Open  Database  Connection  (ODBC) 
standard.  Such  a  broad  range  of  interoperability  gives  the  system  administrator 
an  incredible  number  of  options  when  deciding  on  a  hardware/scripting 
language/database  solution. 

Because  PHP  is  open-source,  there  is  no  charge  for  using  it.  When  used 
with  MySQL  and  Apache,  which  are  also  open-source,  the  only  cost  of  providing 
a  Web  site  comes  from  hardware  and  maintenance.  While  PHP  is  significantly 
faster  than  ASP  (see  Figure  8)  at  processing  code,  it  is  not  faster  than  JSP  or 
ASP.NET.  Its  real  speed  comes  in  development  because  developers  do  not 
have  to  bother  themselves  with  low-level,  file  manipulation  code. 

3.  Active  Server  Pages 

Microsoft  ASP  began  as  a  public  beta  in  October  1996  as  an  upgrade  to 
Internet  Information  Server  2.0.  (Lee  2005,  8)  It  went  through  several 
intermediate  release  versions  until  its  current  form,  3.0.  ASP  uses  a  scripting 
language  as  its  underpinnings.  Commonly,  VBScript  is  the  default  scripting 
language,  but  it  is  a  relatively  simple  task  to  use  ASP  with  JavaScript  as  well. 

ASP  is  integrated  with  Microsoft  IIS,  which  comes  standard  with  Windows 
XP  Professional  and  Windows  2000.  So,  while  PHP  can  be  used  with  free, 
open-source  operating  systems  such  as  the  Fedora  implementation  of  Linux, 


39 


ASP  can  only  be  used  with  the  Windows  operating  system.  Windows  XP 
Professional  currently  costs  about  $200.  Therefore,  while  a  Web  site  running 
Apache  and  PHP  can  be  implemented  for  free,  the  minimum  cost  for  a  Web  site 
running  ASP  is  the  cost  of  the  Windows  operating  system.  Granted,  most  new 
home  PCs  come  with  Windows  pre-installed,  but  the  same  is  not  true  for  new 
servers. 

As  far  as  performance  goes,  ASP  is  about  5-10%  slower  on  average  than 
other  technologies  (see  Figure  8).  The  reason  for  poorer  performance  can  likely 
be  attributed  to  the  fact  that  it  uses  VBScript  or  JavaScript.  “Using  a  scripting 
language  has  its  flaws;  code  is  interpreted  rather  than  compiled.”  (Lee  2005,  8) 
Therefore,  central  processing  unit  (CPU)  clock  cycles  must  be  apportioned  to  the 
code  interpreter,  whereas  if  the  code  had  already  been  compiled,  no  interpreter 
would  be  necessary. 

4.  ASP.NET 

In  early  2000,  Microsoft  introduced  the  new  .NET  Framework,  and 
together  with  it,  introduced  the  upgrade  of  ASP:  ASP.NET  1.0.  (Lee  2005,  8)  It 
was  upgraded  since  then  to  1.1  and  2.0  is  scheduled  for  release  in  November  of 
2005.  ASP. NET’S  primary  advantage  is  that  developers  are  not  restricted  to 
scripting  languages.  Instead,  they  can  write  their  Web  applications  in  fully 
developed  programming  languages  such  as  C#,  J#,  and  VB.NET.  While  using 
such  languages  requires  training  in  the  use  of  those  languages,  it  also  provides  a 
considerable  speed  advantage  and  provides  the  ability  to  interface  Web 
applications  with  legacy  stand-alone  applications  that  have  been  written  in  the 
supported  languages. 

ASP.NET  pages  use  the  .aspx  extension.  This  is  to  ensure  that  ASP.NET 
is  able  to  run  side  by  side  with  classic  ASP  on  the  same  server,  which  uses  the 
extension  .asp. 

HTTP  is  stateless,  meaning  that  the  server  makes  no  attempt  to 
remember  what  the  user  has  previously  requested.  However,  when  writing  a 
Web  application,  it  is  often  necessary  to  ensure  that  the  server  remember 
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previous  requests  and  variables.  To  enable  stateful  processing  in  ASP,  it  is  often 
necessary  to  write  pages  of  code.  Luckily,  over  the  years,  many  mechanisms 
have  been  developed  to  simplify  this.  They  include  cookies  and  query  strings. 
ASP.NET  accomplishes  stateful  processing  in  its  runtime,3  without  requiring 
developers  to  write  extra  code. 

ASP.NET  is  only  available  on  computers  running  the  Windows  operating 
system,  including  Windows  2000  Professional  and  Server,  Windows  XP 
Professional,  and  Windows  Server  2003. 

5.  ColdFusion 

ColdFusion  has  been  around  since  1995,  when  it  was  first  developed  by  a 
company  called  Allaire  Corporation.  Macromedia,  developer  of  Web  design 
powerhouse,  Dreamweaver,  acquired  Allaire  in  January  of  2001.  The  merger  of 
the  two  companies  was  intended  to  enable  Web  developers  to  design  the  look  of 
a  Web  site  and  the  application  logic  supporting  it  with  an  interoperable  suite  of 
software  products. 

Unlike  ASP  and  JSP,  ColdFusion  is  tag-based,  rather  than  script-based. 
(West  and  Muck  2004,  1008,  25)  Like  PHP,  however,  ColdFusion  uses  its  own 
tag-based  language,  designed  expressly  for  Web  development.  (Page  scripting: 
simpler  app  servers)  As  a  result,  ColdFusion  has  become  exceedingly  popular 
with  Web  designers  who,  by  their  nature,  are  already  quite  comfortable  with  tags. 

ColdFusion  is  just  as  capable  as  JSP  or  ASP  and  using  predefined  tags 
allows  a  ColdFusion  developer  to  code  a  page  with  the  same  functionality  as  a 
JSP  or  ASP  page  in  much  fewer  lines  of  code  and  much  less  time.  Timothy  Dyck 
(2000)  said,  “[ColdFusion]  provides  a  rich  [application  programming  interface] 
combined  with  the  easiest  programming  language  and  the  best  administration, 
performance  monitoring,  development  and  debugging  tools  we  tested.” 


3  Runtime  refers  to  when  the  program  is  actually  executing,  or  running.  Runtime  also  refers 
to  a  runtime  library  which  is  a  collection  of  executable  software  functions  in  the  machine  language 
of  the  target  computer,  (from  PC  Magazine  dictionary:  http://www.pcmag.com/encyclopedia_term/ 
0,2542,t=runtime+library&i=50734,00.asp) 
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ColdFusion  MX  7  runs  on  Windows,  Linux,  and  UNIX  (including  Mac  OS 
X)  making  it  one  of  the  most  portable  application  servers  available.  ColdFusion 
Developer  Edition  is  free  and  is  for  development  purposes  only.  In  order  to  run  it 
on  a  production  Web  server,  one  must  buy  the  Standard  Edition  license  at  a  cost 
of  $1,299  per  server  (up  to  two  CPUs)  or  the  Enterprise  Edition  license  at  a  cost 
of  $5,999  per  server  (also  up  to  two  CPUs). 

6.  Microsoft  Access 

Microsoft  Access  is  one  of  the  most  popular  relational  databases 
available.  It  comes  as  part  of  Microsoft  Office,  the  de  facto  standard  in  office 
productivity  suites.  It  can  also  be  bought  separately  for  $229.  Access  is  a 
member  of  a  family  of  file-based  databases  called  Indexed  Sequential  Access 
Method  (ISAM)  databases.  (West  and  Muck  2004,  1008,  34)  ISAMs  typically 
create  a  file  on  the  same  server  on  which  your  Web  application  resides.  This  file 
can  be  accessed  through  a  driver  without  having  the  database  application  that 
created  the  file  installed  on  the  server.  Typically,  ODBC  is  the  driver  that  is  used 
to  access  the  file. 

Access  is  powerful  enough  for  a  small  database  on  a  site  with  moderate  or 
low  traffic.  It  can  hold  up  to  2  GB  per  table  and  can  support  up  to  255  concurrent 
connections.  (West  and  Muck  2004,  1008,  34)  However,  255  connections  is  a 
theoretical  maximum  and  one  could  expect  significance  performance  problems 
well  before  reaching  255  connections. 

Of  greater  concern  is  the  fact  that  the  database  file  resides  on  the  Web 
server  itself.  This  is  dangerous  because  it  makes  it  that  much  easier  for 
attackers  to  get  to  the  database.  If  the  database  file  itself  is  not  password- 
protected,  as  is  often  the  case,  it  is  remarkably  easy  to  steal  the  information 
inside  it.  One  can  mitigate  this  problem,  however,  by  placing  the  database  file  in 
a  folder  on  the  server  with  more  restrictive  permissions  than  that  of  the  folder 
containing  the  Web  site’s  pages.  It  is  also  of  utmost  importance  that  the 
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database  administrator  ensure  that  the  database  file  is  protected  with  a  strong 
password.4 

7.  Microsoft  SQL  Server 

While  Access  is  simple  and  inexpensive  to  develop  in,  SQL  Server  is  a 
true  database  server  that  uses  as  its  core  language,  Transact-SQL  (T-SQL). 
T-SQL  is  Microsoft’s  proprietary  extension  to  SQL-92  (the  ISO  standard  for  SQL, 
certified  in  1992).  (Wikipedia  2005b)  The  first  version  of  Microsoft  SQL  Server 
was  version  4.2  for  OS/2.  It  was  first  marketed  in  1992  and  evolved  over  the 
years  into  its  current  form,  SQL  Server  2000,  which  was  released  in  August  of 
2000. 

SQL  Server  2000  is  an  enterprise-level  RDBMS,  with  robust  capabilities 
such  as  record  locking,  stored  procedures,  triggers,  and  enhanced  security.  It 
can  hold  a  staggering  amount  of  data — 1,048,  516  TB,  to  be  exact.  The  number 
of  simultaneous  connections  to  the  database  is  limited  only  by  the  “number  of 
‘software  licenses’  for  connections  configured  in  the  operating  system.” 
(Simmons  2002,  144,  78)  SQL  Server  2000  comes  in  two  editions,  Enterprise 
and  Standard.  Enterprise  Edition  costs  $19,999  for  a  single  processor,  while 
Standard  Edition  costs  $4,999  for  a  single  processor. 

8.  MySQL  5.0  Server 

MySQL  is  an  open-source  relational  database.  It  was  first  released  to  the 
public  in  1996  and  since  then,  has  developed  into  a  very  powerful  database 
server.  Like  its  capabilities,  MySQL’s  popularity  has  grown  over  the  years. 
Indeed,  “MySQL  has  proven  to  be  a  lightning  fast  and  reliable  database  solution 
for  a  growing  number  of  companies  such  as  SGI,  ValueClick,  Nortel/lnsight, 
Tucows.com,  Cisco  and  many  more.”  (Gesker  2001 ) 

MySQL  is  available  for  Windows,  Linux,  UNIX,  Mac  OS  X  and  Novell 
Netware.  MySQL  also  supports  advanced  features  like  record  locking,  triggers, 
and  stored  procedures.  As  an  open-source  application,  MySQL  is  free  to  use, 
adding  to  its  appeal. _ 

4  A  strong  password  is  usually  comprised  of  more  than  eight  characters  and  is  comprised  of 
letters  mixed  with  special  characters.  Passwords  with  more  characters  (greater  keyspace),  are 
stronger  passwords. 
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9.  Oracle  lOg 

Oracle  produced  the  first  commercial  RDBMS  in  1979  and  the  first  Web- 
enabled  database  in  1997,  fueling  the  current  push  toward  Web-enablement  in 
business  and  in  the  military.  Oracle  1 0g  is  an  enterprise  RDBMS  commonly 
used  by  organizations  with  local  or  global  reach.  (Simmons  2002,  144,  75) 
Proper  utilization  of  an  Oracle  database  usually  requires  database  administrators 
with  extensive  training.  However,  Oracle  does  offer  Oracle  1 0g  in  four  different 
editions,  Enterprise  Edition,  Standard  Edition  One,  Standard  Edition  and 
Personal  Edition.  Any  number  of  users  can  access  Enterprise  Edition,  but  it  is 
limited  to  an  astounding  8  exabytes  (1018  bytes)  of  data.  By  comparison,  a 
megabyte  is  106  bytes.  Standard  Edition  supports  up  to  1000  users  and  is 
limited  to  500  GB  (a  gigabyte  equals  109  bytes)  of  data.  Standard  Edition  One 
supports  a  maximum  of  two  CPUs  while  Standard  Edition  supports  a  maximum 
of  four  CPUs.  Personal  Edition  is  limited  to  development  of  databases  and 
applications  on  one  workstation. 

Oracle  1 0g  Enterprise  Edition  costs  $40,000  per  CPU,  but  Standard 
Edition  costs  much  less,  $15,000  per  CPU.  However,  the  Navy  has  entered  into 
a  Blanket  Purchase  Agreement  (BPA)  with  Oracle  that  provides  Oracle  software 
to  all  shore-based  Navy  activities  at  a  75  to  84  percent  discount  from  the  retail 
price.  While  the  BPA  with  Oracle  reduces  the  costs  of  implementing  a  web- 
enabled  database  significantly,  those  costs  are  still  much  more  than  other 
options  available. 

10.  Summary 

In  order  to  assist  in  deciding  which  software/hardware  configuration  is  the 
best  one  to  fulfill  the  requirements  for  a  Web-enabled  qualbook,  it  is  necessary  to 
first  rank,  in  order  of  priority,  the  pertinent  decision  factors.  The  factors  are: 

•  Interoperability 

•  Security 

•  Cost 

•  Performance 
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a.  Interoperability 

The  Navy  and  Marine  Corps  have  recently  begun  the  transition  to 
the  Navy  and  Marine  Corps  Intranet  (NMCI).  NMCI  is  an  enterprise-level 
initiative  to  link  over  360,000  shore-based  computers  and  servers  in  a  single 
network  with  centralized  management  and  configuration  control.  In  order  to 
maintain  the  network,  NMCI  has  adopted  and  enforced  controls  for  Web 
services.  New  Web  sites  are  treated  as  applications  within  NMCI  and  usually  go 
through  the  same  certification  process  that  NMCI  software  goes  through.  In 
order  to  ensure  interoperability  and  to  streamline  accreditation  of  a  new  Web- 
Enabled  Qualbook  for  IPs,  it  should  not  require  any  client-side  scripting. 
Because  most  of  the  360,000  computers  across  the  Navy  enterprise  will  be 
running  a  Windows  operating  system,  a  new  Web-Enabled  Qualbook  should  take 
advantage  of  this  fact  by  using  ASP  or  ASP.NET  and  a  Windows-based  server. 
Additionally,  it  should  take  advantage  of  the  single  sign-on  capability  of  Navy 
Knowledge  Online. 

b.  Security 

Because  the  Web-Enabled  Qualbook  could  be  considered  a  critical 
application  if  fully-implemented  and  because  it  could  one  day  grow  to  serve  more 
communities  than  the  IP  community,  security  should  be  of  utmost  concern.  Due 
to  the  time  and  space  limits  placed  on  this  thesis,  the  security  concerns  of 
developing  a  Web-enabled  database  will  not  be  explored  fully  here. 

c.  Cost 

The  Navy  has  an  enterprise  architecture  based  on  Windows 
Operating  Systems  and  has  already  secured  Blanket  Purchase  Agreements  with 
Microsoft  and  vendors  that  supply  applications  for  Windows.  Additionally,  the 
NMCI  contract  provides  for  maintenance  of  Windows-based  servers.  Although 
Linux-based  servers  may  be  connected  to  the  NMCI  network,  qualbook  servers 
should  take  advantage  of  the  provisions  of  the  NMCI  contract  and  be  installed 
with  Windows  Server  2003. 
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However,  the  database  application  itself  does  not  necessarily  need 
to  be  proprietary  (expensive)  software.  The  cheapest  possible  scenario  would 
use  a  server  computer  running  a  Linux  operating  system,  Apache  HTTP  Server, 
and  MySQL  Server  with  a  total  software  cost  of  zero  dollars.  However,  the  other 
considerations  make  this  scenario  unlikely.  See  the  section  entitled,  “Selected 
Solution  to  be  Developed”  for  the  final  solution. 
d.  Performance 

Because  the  Web-Enabled  Qualbook  could  serve  as  the  basis  for 
an  enterprise-wide  qualbook  in  the  future,  performance  could  one  day  be  an 
important  issue.  Therefore,  performance  of  possible  solutions  must  be 
considered  early-on.  Figure  8  illustrates  the  performance  of  four  different 
scripting  technologies  when  used  with  four  different  database  technologies. 


Microsoft  Access  2000  MySQL  3.25 


Oracle  9i  Microsoft  SQL  Server  2000 


asp 

■  jsp 
php 

■  asp.net 


Figure  24.  Comparison  of  scripting  language  response  times  when  used  with 
different  databases  (adapted  from  El  Zoghabi,  et.  al.,  “Performance 
Study  of  Several  DBMS  Connectivity  Using  Different  Server  Scripting 

Environments,”  figs.  2-6) 


46 


B.  SELECTED  SOLUTION  TO  BE  DEVELOPED 

The  author  developed  the  prototype  that  follows  with  much  help  from  a 
fellow  IP,  LT  Greg  Taylor  and  a  Saudi  student  at  Naval  Postgraduate  School, 
Ma’an  Aseeri.  We  chose  a  server  running  IIS  because  it  was  the  only  one 
available  to  us.  We  chose  Microsoft  Access  because  it  was  freely  available 
through  NPS’  IT  department  and  because  we  all  were  familiar  with  the  software. 
We  chose  ASP  with  VBScript  because  it  was  available  and  we  already 
possessed  the  requisite  skills  with  the  software.  Because  this  is  a  prototype,  a 
demonstration  of  the  technologies  and  what  can  be  accomplished  using  them, 
performance,  security,  and  interoperability  did  not  factor  into  our  decision. 

However,  enough  experience  was  gained  in  the  building  of  the  prototype 
and  the  research  that  preceded  it,  that  a  recommendation  can  be  proffered  for 
the  development  of  a  fully  operational  electronic  qualbook.  The  most  important 
consideration  to  take  into  account  while  choosing  a  set  of  technologies  is  the 
environments  that  the  end-users  will  be  accessing  the  qualbook  from.  The  vast 
majority  of  computers  that  navy  personnel  use  run  Windows  operating  systems 
on  Intel  or  AMD  processors.  While  it  is  not  a  good  idea  to  restrict  users  of  an 
electronic  qualbook  to  Windows  machines,  doing  so  when  necessary  will  likely 
be  acceptable  to  the  vast  majority  of  potential  users. 

Due  to  the  limitations  of  NMCI  and  IT-21,  the  Navy’s  shipboard  computing 
architecture,  any  operational  electronic  qualbook  should  be  fully  compatible  with 
those  architectures.  Microsoft  Access  is  dramatically  slower  than  all  of  the  other 
options  and  should  not  be  used  for  an  operational  system.  A  qualbook  database 
implemented  in  Microsoft  SQL  Server  would  be  just  as  fast  as  one  implemented 
in  MySQL  or  Oracle,  but  would  certainly  be  compatible  with  the  NMCI  and  IT-21 
environments. 

Implementing  a  database  in  SQL  Server  on  a  machine  running  Windows 
and  IIS  and  using  ASP  as  its  scripting  language  presents  several  security  risks, 
which,  on  their  own,  could  be  the  subject  of  another  thesis.  However,  it  is  the 
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opinion  of  the  author  that  those  risks  can  be  adequately  mitigated  by  timely 
patches  and  updates. 

Interoperability  with  systems  running  OSs  other  than  Windows  can  be 
achieved  by  ensuring  that  no  code  is  executed  client-side.  If  code  must  be 
executed  on  the  client  machines,  interoperability  can  and  should  be  maintained 
by  executing  the  instructions  in  blocks  of  JSP  code. 

With  all  of  these  things  taken  into  consideration,  a  future  electronic 
qualbook  should  be  implemented  on  a  Windows-based  server  that  is  properly 
and  systematically  patched.  The  database  should  be  implemented  in  Microsoft 
SQL  Server  (again,  properly  patched)  and  accessed  via  IIS  on  the  server  with 
ASP  as  the  scripting  language.  However,  if  client-side  scripts  are  to  be 
executed,  the  scripting  language  should  be  JSP. 
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IV.  DATABASE  DESIGN  AND  INTEGRATION 


A.  DATABASE  DESIGN  AND  INTEGRATION 

1.  Entities 

An  entity-relationship  model  is  a  common  method  of  describing  all  of  the 
data  for  an  organization  or  business  area.  “The  E-R  model  is  expressed  in  terms 
of  entities  in  the  business  environment,  the  relationships  (or  associations)  among 
those  entities,  and  the  attributes  (or  properties)  of  both  the  entities  and  their 
relationships.”  (Hoffer,  Prescott  and  McFadden  2005,  700)  In  a  relational 
database  such  as  Access,  entities  are  often  referred  to  as  tables.  The  entities  or 
tables  that  comprise  the  qualbook  database  are  listed  in  Appendix  A. 

2.  Database  Schema  Design 

The  E-R  model  is  often  expressed  in  graphical  form  using  an  E-R 
diagram.  Figure  9  explains  the  symbols  used  in  the  E-R  diagram.  Figure  10 
shows  the  E-R  diagram  for  the  prototype  electronic  qualbook. 


Entity 


-  Mandatory  Many 


—to -  Optional  One 


Figure  25.  Entity  Relationship  Diagram  Legend 
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Figure  26.  Entity-Relationship  Diagram 
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Microsoft  Access  models  the  relationships  between  its  entities  differently 
from  the  E-R  diagram  above.  In  the  Microsoft  model  in  Figure  27,  entities  are 
represented  by  tables.  Lines  link  the  primary  keys  and  foreign  keys  in  each 
table.  Cardinality  is  represented  by  a  one  or  by  an  infinity  symbol  (looks  like  a 
figure  eight  on  its  side).  Joins  are  indicated  by  an  arrowhead. 


Figure  27.  Electronic  Qualbook  Database  Relationships 

Figure  27  conveys  essentially  the  same  information  as  Figure  26.  It  is 
provided  for  readers  more  familiar  with  the  Microsoft  Access  Relationships  mode 
that  the  E-R  diagram. 
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V.  CONCLUSION 


A.  CONCLUSION 

The  purpose  of  this  thesis  was  to  analyze  the  potential  knowledge  value 
that  could  be  added  to  the  PQS  by  web-enabling  it.  Secondarily,  the  purpose 
was  to  develop  a  prototype  web-enabled  database  as  a  demonstrator  of  the 
technologies  available  and  the  potential  capabilities  of  any  future  implementation. 
Once  the  KVA  was  complete  and  it  could  be  shown  that  web-enabling  the 
database  is  an  endeavor  that  has  the  potential  to  make  the  PQS  process  more 
“knowledge-creating,”  a  prototype  Electronic  Qualbook  was  developed  using 
Microsoft  IIS  and  ASP  with  VBScript  and  a  Microsoft  Access  back-end.  Since 
the  goal  of  the  thesis  has  been  fulfilled,  the  purpose  of  this  chapter  is  to  present 
some  conclusions,  recommendations  and  areas  of  further  research  to  enhance 
the  Electronic  Qualbook  and  ensure  the  success  of  any  future  operational 
implementations. 

The  IP  Community  (and  the  rest  of  the  Navy,  for  that  matter)  is  currently 
using  a  paper-based  system  to  qualify  its  officers.  That  system  is  inefficient  and 
presents  a  single  point  of  failure:  the  qualbook.  If  the  candidate  loses  his 
qualbook,  theoretically,  he  must  re-do  all  of  the  signatures  previously  completed. 

B.  RECOMMENDATIONS 

KVA  analysis  has  shown  in  this  thesis  that  web-enabling  the  system  will 
make  the  process  more  knowledge-creating.  Indeed,  the  total  return  on 
knowledge  for  all  three  processes  increased  from  1431%  to  1451%  and  then 
again  from  1451%  to  1609%.  The  more  knowledge  value  added  to  an 
organization  by  a  process,  the  more  dominant  that  organization  can  be  in  its 
particular  field.  Since  the  grand  strategy  for  the  US  military  includes  the  goal  of 
information  dominance,  web-enabling  the  qualification  process  should  be 
researched,  planned  and  undertaken  as  soon  as  possible. 

Using  the  lessons  inherent  in  this  thesis,  other  theses,  and  the  knowledge 
gained  through  experience,  the  IP  Community  should  put  its  intrinsic  talents  to 
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work  and  develop  a  web-enabled  personnel  qualification  system  that  is 
integrated  with  Navy  Knowledge  Online  and  the  Five  Vector  Model,  the  Navy’s 
new  paradigm  for  personnel  management. 

C.  FUTURE  RESEARCH 

While  this  thesis  addressed  topics  such  as  community  background, 
database  design  and  KVA,  there  are  several  issues  that  should  be  addressed 
before  commitment  of  resources  to  developing  an  operational  electronic 
qualbook.  One  of  those  issues  is  that  of  the  pragmatics  of  utilizing  the  digital 
signatures  on  the  Common  Access  Card.  In  order  to  ensure  the  identity  and 
qualification  of  the  Subject  Matter  Experts  signing  knowledge  line  items,  any 
future  operational  Electronic  Qualbook  should  utilize  the  digital  signatures  that  all 
naval  personnel  have  embedded  in  their  military  identification  cards  or  Common 
Access  Cards. 

Additionally,  the  extreme  limits  placed  on  the  bandwidth  pipes  between 
the  shore  and  ships  at  sea,  must  be  eased.  If  the  Navy  is  really  committed  to 
Web-enablement  of  routine  operations,  and  net-centric  warfare,  great  strides 
must  be  made  in  the  bandwidth  available  to  the  deckplate  sailor.  As  it  is  now, 
that  bandwidth  is  inadequate  to  support  Web-enablement  of  even  the  most 
critical  information  systems,  let  alone,  second-string  systems  devoted  to 
personnel  and  human  resource  management. 
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APPENDIX  A.  ENTITIES 


Entity  Name:  tbIUsers 

Key 

Attribute 

Data  Type 

Size 

Example  Instance 

Primary 

txtEmail 

Text 

50  char. 

gwen@nodoubt.com 

txtPassword 

Text 

50  char. 

pwd 

nbrSSNIast4 

Number 

2  bytes 

5555 

txtFirstName 

Text 

50  char. 

Gwen 

txtLastName 

Text 

50  char. 

Stefa  ni 

txtRank 

Text 

50  char. 

LCDR 

txtUserLevel 

Text 

50  char. 

Admin 

dteStartDate 

Date/Time 

8  bytes 

12-Dec-2004 

Table  1.  tbl Users  Attributes 


Entity  Name:  tbIAssigned 

Key 

Attribute 

Data  Type 

Size 

Example  Instance 

Primary 

nbrAssignedID 

Number 

4  bytes 

1 

txtEmail 

Text 

50  char. 

gwen@nodoubt.com 

Foreign 

nbrLineltemID 

Number 

4  bytes 

55 

txtSignature 

Text 

50  char. 

Gwen  Stefani 

dteDateSigned 

Date/Time 

8  bytes 

14-Nov-2001 

Table  2.  tbIAssigned  Attributes 
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Entity  Name:  tbILineitems 

Key 

Attribute 

Data  Type 

Size 

Example  Instance 

Primary 

nbrLineltemID 

Number 

4  bytes 

21 

txtLineltemNumber 

Text 

50  char. 

304. b 

memLineltemDescription 

Memo 

65,535 

char. 

How  is  the 

maritime  picture 

fused  into  the 

COP? 

Foreign 

nbrSectionNumber 

Number 

4  bytes 

304 

nbrModuleNumber 

Number 

4  bytes 

3 

Table  3.  tbILineltems  Attributes 


Entity  Name:  tbISections 

Key 

Attribute 

Data  Type 

Size 

Example  Instance 

Primary 

nbrSectionNumber 

Number 

4  bytes 

401 

txtSectionName 

Text 

100 

Basic  Satellite 

char. 

Communications  Theory 

Foreign 

nbrModuleNumber 

Number 

4  bytes 

4 

Table  4.  tbISections  Attributes 
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Entity  Name:  tbIModule 

Key 

Attribute 

Data  Type 

Size 

Example  Instance 

Primary 

nbrModuleNumber 

Number 

4  bytes 

6 

txtModuleName 

Text 

50  char. 

Chief  Information 

Officer 

nbrQualbookID 

Number 

4  bytes 

243 

Table  5.  tbIModule  Attributes 
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APPENDIX  B.  SCREENSHOTS 


This  appendix  contains  pictures  of  the  IP  Electronic  Qualbook  prototype. 


Welcome  to  the  IP  Electronic 
Qualbook! 


Login  to  update  your  qualification  progess.  If  you  do 
not  have  an  account,  please  register  to  enable  your 
web-based,  personalized,  IP  qualification  standards. 


Login  (email): 


Password:  'Enter' 


If  you  encounter  difficulty  with  your  login  and/or 
password,  or  you  have  a  question  regarding  the  IP 
Electronic  Qualbook,  please  email  the  webmaster. 


Temporary  Link  (Hi-Bandwidth  Projects 


Figure  28.  Login  Page  (Low  Bandwidth) 
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IP  Electronic  Qualbook 


Qualifications  Here 


Welcome  to  the  IP  Electronic  Qualbook! 


Login  to  update  your  qualification  progess.  If  you  do  not 
have  an  account,  please  register  to  enable  your  web- 
based,  personalized,  IP  qualification  standards. 


Login  (email): 

Password:  ]  (Enter) 


If  you  encounter  difficulty  with  your  login  and/or  password,  or  you  have  a 
question  regarding  the  IP  Electronic  Qualbook,  please  email  the  webmaster. 


Yokosuka.  Japan  (Oct.  1.  2004)  -  Information  Sysiems  Technician  Seaman  Denny  Ranvrez 
of  Houston.  Texas,  installs  a  replacement  hard  dnve  fora  computer  in  the  Automated  Data 
Processing  (ADP)  work  center  aboard  the  USS  Kitty  Hawk  (CV  63).  U.S.  Navy  photo  by 
Photographer's  Mate  3rd  Class  Jason  T.  Pop  tin  (RELEASED) 


Figure  29.  Login  Page  (High  Bandwidth  Option) 
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4S> 


Electronic  Qualbook 

Signature  c  D  pDate  12. If  / OS^f 


Step  1:  Complete  Form 


Please  fill  out  the  form  below.  Please  note  that  your  email  address  will 
be  your  login.  The  IP  Qual  start  date  is  needed  to  report  your  progress. 
All  fields  are  required.  You  must  complete  all  three  steps. 


First  name: 

Last  name: 

Rank: 

SSN  (last  4): 
Email  Address: 


James 


Taylor 

LCDR  : ' 


4433 


james@taylor.com 


12/0|l/2005 
Submit  Torm 


Password : 

IP  Qual  Start  Date  (mm/dd/yyyy): 


Figure  30.  Registration  Page 
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Welcome,  LCDR  Stefani,  to  your  personalized  IP  qualification  standards. 
Please  select  the  IP  qual  that  you  would  like  to  view  and/or  modify. 


.  0 

.  0 

O 

Basic  Quhficatioa 
Requirements 

For 

Intermediate  Q.ialitkatioa 
Requirements 

For 

Advanced  Qualification 
Requirements 

For 

INFORMATION 
PROFESSIONAL  OFFICER 

esitn'-atii  teas*  *— * — 

INFORMATION 
PROFESSIONAL  OFFICER 

MM  MMl 

arWflsr.tasnstMmerrcasris 

- 

Future  feature 


3%  Complete 


Future  feature 


Figure  31 .  Welcome  Page 
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Figure  32.  Intermediate  Page 
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4^>  Electronic  Qualbook 


101. a 


101. b 


lOl.c 


IQl.d 


Define  what  is  meant  by  the  following  basic  binary  technology  terminology. 


-Bit 

-Byte 

-Data  (baud)  rates 
-Bandwidth 

Jobs 


12/12/2004 


Signature 


Date 


Define  commonly  used  bandwidth  increments  from  75KBPS  to  OC-12. 

Jobs  11/22/2001 


Signature 


Date 


How  much  bandwidth  is  an  E-l  and  where  is  this  increment  used? 


Signature 


Date 


Open  up  a  computer  case  and  identify  the  major  components  of  a  computer  (those  listed  below  at  a  minimum). 
Describe  what  each  component  is  used  for. 

-Motherboard 

-Processor 

-Battery 

-Power  supply  and  uninterrupted  power  supply 
-Hard  drive  (SCSI  and  IDE  drives) 

-Memory 

-Network  interface  card  (fiber  and  RJ-45) _ 


Figure  33.  Update  Page 
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Figure  34.  Detail  Page 


Electronic  Qualbook 


Back  to  Main 


C 


Log  Out 


) 


As  an  administrator,  you  can  view  the  progess  of  individual  users,  change 
user  permission  status,  and  delete  user  accounts  from  the  database. 

With  regard  to  the  qualbooks,  you  can  also  add,  modify,  or  delete  line 
items. 


Individual  Accounts 

[  Search  Users 


Change  Line  Items 

Add  [  Modify  /  Delete  ] 


Figure  35.  Admin  Page 
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Figure  38.  Logoff  Page 
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APPENDIX  C.  WEBSITE  CODE 


This  appendix  contains  the  HTML  and  ASP  code  for  the  pages  in  the 
Electronic  Qualbook  website. 

A.  LOGIN.ASP  (FIGURE  28) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<!--#include  f ile= "Connections/connGroup7 . asp"  --> 

<% 

'  ***  Validate  request  to  log  in  to  this  site. 

MM_LoginAction  =  Request . ServerVariables ( "URL" ) 

If  Request . QueryString< >" "  Then  MM_LoginAction  =  MM_LoginAction  + 
"?"  +  Server . HTMLEncode (Request . Querystring) 

MM_valUsername=CStr (Request . Form ( " login" ) ) 

If  MM_valUsername  <>  ""  Then 

MM_f ldUserAuthorization= " txtUserLevel " 

MM_redirectLoginSuccess= "welcome . asp" 

MM_redirectLoginFailed= " login . asp" 

MM_f lag= "ADODB . Recordset " 

set  MM_rsUser  =  Server. CreateObject (MM_f lag) 

MM_rsUser . ActiveConnection  =  MM_connGroup7_STRING 
MM_rsUser . Source  =  "SELECT  txtEmail,  txtPassword" 

If  MM_f IdUserAuthorization  <>  ""  Then  MM_rsUser . Source  = 
MM_rsUser . Source  &  &  MM_f IdUserAuthorization 

MM_rsUser . Source  =  MM_rsUser . Source  &  "  FROM  tblUsers  WHERE 
txtEmail= ' "  &  Replace (MM_valUsername , &" '  AND 
txtPassword= ' "  &  Replace (Request . Form ( "password" &  " 1 " 
MM_rsUser . CursorType  =  0 
MM_rsUser . CursorLocation  =  2 
MM_rsUser . LockType  =  3 
MM_rsUser . Open 

If  Not  MM_rsUser . EOF  Or  Not  MM_rsUser . BOF  Then 

1  username  and  password  match  -  this  is  a  valid  user 
Session ( "MM_Username " )  =  MM_valUsername 
If  (MM_f IdUserAuthorization  <>  "")  Then 
Session ( "MM_UserAuthorization" )  = 

CStr (MM_rsUser . Fields . Item (MM_f IdUserAuthorization) .Value) 

Else 

Session ( "MM_UserAuthorization" )  =  "" 

End  If 

if  CStr (Request . Querystring ( "accessdenied" ) )  <>  ""  And  false 

Then 

MM_redirectLoginSuccess  = 

Request . Querystring ( "accessdenied" ) 

End  If 

MM_rsUser . Close 

Response . Redirect (MM_redirectLoginSuccess ) 

End  If 

MM_rsUser . Close 

Response . Redirect (MM_redirectLoginFailed) 

End  If 
%> 
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< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 

<html  xmlns= "http : / / www . w3 . org/1999/ xhtml " > 

<head> 

<meta  http-equiv="Content-Type"  content= " text/html ;  charset=iso- 
8859-1 "> 

<title>IP  Qualbook:  Login</title> 

<link  href="stylesheet . css"  rel= " stylesheet "  type= " text/css "  /> 
<script  language= "JavaScript "  type= " text/ JavaScript " > 

<  !  -- 

function  MM_findObj  (n,  d)  {  //v4.01 
var  p , i , x ;  if(!d)  d=document; 
if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 
d=parent . frames [n . substring (p+1) ] . document ; 
n=n . substring (0 , p) ; } 

if ( ! (x=d [n] ) &&d. all)  x=d.all[n];  for 
( i=0 ;! x&&i<d . forms . length; i++ )  x=d. forms [i]  [n]; 

f or (i=0 ; ! x&&d. layers&&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_validateForm ( )  {  //v4.0 

var 

i , p , q, nm, test , num, min, max, errors = 1 ' , args=MM_validateForm . argument 
s; 

for  ( i  =  0  ;  i< (args . length-2 )  ;  i  +  =  3)  {  test=args [i  +  2]  ; 

val=MM_f indOb j  (args [i] ) ; 

if  (val)  {  nm=val.name;  if  ( (val=val .value) !="")  { 

if  (test . indexOf (' isEmail ')! =-l)  {  p=val . indexOf (' @ ') ; 
if  (pel  | |  p== (val . length- 1 ) )  errors+= ' -  ' +nm+ '  must 
contain  an  e-mail  address. \n'; 

}  else  if  (test!='R')  {  num  =  parseFloat (val ) ; 
if  (isNaN(val))  errors+= ' -  ' +nm+ '  must  contain  a 
number . \n ' ; 

if  (test . indexOf (' inRange ' )  !=  -1)  {  p=test.indexOf(':'); 

min=test . substring (8 ,p) ;  max=test . substring (p+1 ) ; 
if  (numcmin  | |  max<num)  errors+= ' -  ' +nm+ '  must  contain 
a  number  between  ' +min+ '  and  1 +max+ ' . \n 1 ; 

}  }  }  else  if  (test . charAt (0)  ==  'R')  errors  +=  1  -  ' +nm+ '  is 
required . \n ' ;  } 

}  if  (errors)  alert (' The  following  error (s) 
occurred : \n 1  terrors )  ; 

document . MM_returnValue  =  (errors  ==  ' ') ; 

} 

//--> 

</script> 

</head> 

<body> 

<p>&nbsp; </p> 

<table  width="600"  border="0"  align="center"  cellpadding= " 0 " 
cellspacing= " 0 "  id=" login" > 

<tr> 
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alt= "Main 


<td  colspan= "  6  "  xdiv  align= "  center "  ximg 
src= " Images /mainbanner . gif "  width="500"  height="90" 

Banner"  x/divx /td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  width= " 102 " >&nbsp ; </td> 

<td  width="102">&nbsp;</td> 

<td  width= " 102 " >&nbsp ; </td> 

<td  width= " 102 " >&nbsp ; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan=  "4 "  xh3  align= " center "  xspan 
class= " stylel4 " >Welcome  to  the  IP  Electronic 
Qualbook!  </spanx/h3x/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width="96">&nbsp;</td> 

<td  colspan="4">&nbsp;</td> 

<td  width="96">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= "4 " xtable  width="408"  border="0"  cellspacing= " 0 " 
cellpadding= " 10 " > 

<tr> 

<tdxp  class="stylel">Login  to  update  your  qualification 
progess.  &nbsp;If  you  do  not  have  an  account,  please  <a 
href =" register . asp" >register</a>  to  enable  your  web-based, 
personalized,  IP  qualification  standards.  </px/td> 

</tr> 

</table> 

</td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 
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<td  colspan= "4 " xtable  width="408"  border="0"  cellspacing= " 0 " 
cellpadding= " 10 " > 

<tr> 

<tdxform  action="<%=MM_LoginAction%>"  method="POST" 
name=" login"  id=" login" > 

<p  class="stylel">Login  (email): 

<input  name="login"  type="text"  id="login"  size="30" 
maxlength= " 50 " > 

</p> 

<p  class= "style3 " xspan  class="stylel">Password: 

&nbsp ; &nbsp ; &nbsp ; &nbsp ; 

<input  name= "password"  type= "password" 
id= "password"  size="30"  maxlength= " 50 " > 

< input  name= " Submit "  type= " submit "  class= " style7 " 
onclick= "MM_validateForm ( ' login ' ,  1  1 ,  1 RisEmail ' ,  1  password ' ,  '  ' ,  ' R ' ) 

; return  document . MM_returnValue "  value= "Enter "  /> 

</span>  </p> 

</f  ormx/td> 

</tr> 

</tablex/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= "4 " xtable  width="408"  border="0"  cellspacing= " 0 " 
cellpadding= " 10 " > 

<tr> 

<tdxp  class= " stylel  style5">If  you  encounter  difficulty 
with  your  login  and/or  password,  or  you  have  a  question  regarding 
the  IP  Electronic  Qualbook,  please  email  the  <a 
href  = "  # "  >webmaster< /a>.</px/td> 

</tr> 

</table> 

<p  align="center"  class= " stylel  style5"xa 
href = "http : //ebiz . nps . navy . mil/Winter2  005/Group7/proj  ect/Proj  ectH 
I/login .  asp"  >Temporary  Link  (Hi -Bandwidth  Project)  </ax/px/td> 
<td>&nbsp; </td> 

</tr> 

</table> 

</body> 

</html> 


B.  WELCOME.ASP  (FIGURE  31) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<% 


I  *  *  * 


Logout  the  current  user. 
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MM_Logout  =  CStr (Request . ServerVariables ( "URL" ) )  & 

" ?MM_Logoutnow=l " 

If  (CStr (Request ( "MM_Logoutnow" ) )  =  "1")  Then 
Session . Contents . Remove ( "MM_Username " ) 

Session . Contents . Remove ( "MM_UserAuthorization" ) 
MM_logoutRedirectPage  =  "logoff.htm" 

1  redirect  with  URL  parameters  (remove  the  "MM_Logoutnow"  query 
param)  . 

if  (MM_logoutRedirectPage  =  "")  Then  MM_logoutRedirectPage  = 
CStr (Request . ServerVariables ( "URL" ) ) 

If  (InStr(l,  UC_redirectPage ,  vbTextCompare)  =  0  And 

Request . Querystring  <>  "")  Then 
MM_newQS  =  "?" 

For  Each  Item  In  Request . Querystring 
If  (Item  <>  "MM_Logoutnow" )  Then 

If  (Len (MM_newQS)  >  1)  Then  MM_newQS  =  MM_newQS  & 

MM_newQS  =  MM_newQS  &  Item  &  "="  & 

Server .URLencode (Request .Querystring (Item) ) 

End  If 
Next 

if  (Len (MM_newQS)  >  1)  Then  MM_logoutRedirectPage  = 
MM_logoutRedirectPage  &  MM_newQS 
End  If 

Response . Redirect (MM_logoutRedirectPage) 

End  If 
%> 


<!--#include  f ile= "Connect ions /connGroup7 . asp"  --> 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin, User " 

MM_authFailedURL= " login . asp" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 ) 
Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (l,MM_authFailedURL, "?")  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 

if  (Len (Request . Querystring () )  >  0)  Then  MM_ref errer  = 

MM_ref errer  &  "?"  &  Request . Querystring ( ) 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 
"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 

End  If 
%> 

<% 

Dim  rsloggedin _ email 

rsloggedin _ email  =  "m@n" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rsloggedin _ email  =  Session ( "MM_Username " ) 
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End  If 
%> 

<% 

Dim  rsloggedin 

Dim  rsloggedin_numRows 

Set  rsloggedin  =  Server . CreateObj ect ( "ADODB . Recordset " ) 

rsloggedin .Act iveConnect ion  =  MM_connGroup7_STRING 

rsloggedin . Source  =  "SELECT  txtLastName,  txtRank  FROM  tblUsers 

WHERE  txtEmail='"  +  Replace (rsloggedin _ email, 

rsloggedin . CursorType  =  0 
rsloggedin . CursorLocation  =  2 
rsloggedin . LockType  =  1 
rsloggedin . Open ( ) 

rsloggedin_numRows  =  0 
%> 

<% 

Dim  rs_complete _ user 

rs_complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_complete 

Dim  rs_complete_numRows 

Set  rs_complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_complete . ActiveConnection  =  MM_connGroup7_STRING 
rs_complete  .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_complete _ user, 

rs_complete . CursorType  =  0 
rs_complete . CursorLocation  =  2 
rs_complete . LockType  =  1 
rs_complete . Open ( ) 

rs_complete_numRows  =  0 
%> 


dim  pcomplete 

pcomplete  =  ( (rs_complete . Fields . Item ( "ExprlOOO " ) .Value) /385) *100 
pcomplete  =  pcomplete  \  1 
%> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 

<html  xmlns= "http : / / www . w3 . org/ 1999/xhtml " > 

<head> 

<meta  http-equiv="Content-Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 

<title>IP  Qualbook:  Welcome</title> 

<link  href="stylesheet . css"  rel="stylesheet"  type= " text/css "  /> 
<style  type="text/css"> 

<  !  -- 

. stylel2  {color:  #3333FF} 
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. stylel3  {color:  #3333FF;  font-family:  Verdana,  Arial,  Helvetica, 
sans-serif;  } 
a: link  { 

color:  #000000; 

} 

a: hover  { 

color:  #00CC33  ; 

} 

a: active  { 

color:  #00CC33 ; 

} 

a:visited  { 

color:  #000000; 

} 

-  -  > 

</style> 

<script  language= "JavaScript "  type= " text/ JavaScript " > 

< !  -  - 

function  MM_swapImgRestore ( )  {  //v3.0 

var  i , x, a=document . MM_sr ; 

for  (i  =  0  ;  a&&i<a .  length&Sc  (x=a  [i]  )  &&x .  oSrc ;  i  +  +)  x .  src=x .  oSrc  ; 

} 

function  MM_preloadImages ( )  {  //v3.0 

var  d=document;  if (d . images ) {  if(!d.MM_p)  d.MM_p=new  Array () ; 
var  i , j =d . MM_p . length, a=MM_preloadImages . arguments ;  for(i=0; 
i<a. length;  i++) 

if  (a  [i]  . indexOf ("#")! =0) {  d . MM_p [ j ] =new  Image; 
d . MM_p [ j  +  +  ]  . src=a  [i]  ; } } 

} 

function  MM_findObj  (n,  d)  {  //v4.01 
var  p , i , x ;  if(!d)  d=document; 
if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 
d=parent . frames [n . substring (p+1) ] . document ; 
n=n . substring (0 , p) ; } 

if ( ! (x=d [n] ) &&d. all)  x=d.all[n];  for 
( i=0 ;! x&&i<d . forms . length; i++ )  x=d. forms [i] [n]; 

f or (i=0 ; ! x&&d. layers &&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_swapImage ( )  {  //v3.0 

var  i , j =0 , x, a=MM_swapImage . arguments ;  document . MM_sr=new  Array; 
f or (i=0 ; i< (a . length- 2 ) ; i+=3 ) 

if  ( (x=MM_f indObj  (a  [i] ) )  ! =null) {document .MM_sr [j+  +  ] =x; 
if(lx.oSrc)  x . oSrc=x. src ;  x . src=a  [i  +  2]  ; } 

} 

function  MM_popupMsg (msg)  {  //vl.O 
alert (msg) ; 

} 

//--> 

</script> 

< /head> 


75 


<body 

onload= "MM_preloadImages ( ' Images/admin_on .gif' , ' Images/logout_on . 
gif' , ' Images/basic_qual_coverpage_new_on . gif ' , ' Images/intermediat 
e_qual_coverpage_new_on.gif 1 , 1 Images/advanced_qual_coverpage_new_ 
on . gif  1 ) " > 

<table  width="800"  border="0"  align= " center "  cellpadding= " 0 " 
cellspacing= " 0 " > 

<tr> 

<td  colspan= " 8 " ximg  src= " Images/innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="3"  rowspan="2"> 

<% 

If  Request . Querystring ( "error ")= "notAdmin"  Then 
Response . Write (" <p  class=" "error" ">  Error!  You  must  have 
admin  privileges  to  access  Admin  Page.  <p  />") 

End  If 
%></td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width="100">&nbsp;</td> 

<td  colspan= " 6 " xtable  width="100%"  border="0" 
cellspacing= " 0 "  cellpadding= " 0 " > 

<tr> 

<tdxdiv  align= " center "  xa  href  =  "admin .  asp" 
onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage ( ' UpdateButtonl ' ,  1  1 ,  1  Images /admin_on . gif 
'  ,  1)  "ximg  src= " Images/admin . gif "  name=  "UpdateButtonl " 
width="130"  height="30"  border="0"  id= "UpdateButton" 

/  x/ax/  divx/  td> 

<td>&nbsp; </td> 

<tdxdiv  align= "  center "  xa  href="<%=  MM_Logout  %>" 
onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage (' Logout 1 ' , ' ' , ' Images/logout_on . gif ' ,1) " 
ximg  src= " Images/logout . gif "  name= "Logout 1 "  width="130" 
height="30"  border="0"  id="Logout"  /x/ax/divx/td> 

</tr> 

</ table ></ td> 

<td  width="100">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 
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<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  widths " 100 " >&nbsp ; </td> 

<td  widths " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " ><h4  class= " style3 " xspan 
class=" styles " >Welcome, 

<%= (rsloggedin .Fields . Item ( " txtRank" ) . Value) %>&nbsp ; <%= (rsloggedi 
n . Fields . Item ( "txtLastName" ) -Value) %>,  to  your  personalized  IP 
qualification  standards . knbsp ;  Please  select  the  IP  qual  that  you 
would  like  to  view  and/or  modify.  </spanx/h4x/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6"> 

<table  width="600"  border="0"  cellpadding= " 1 " 
cellspacing= " 0 "  bgcolor= " #FFFFFF" > 

<tr> 

<td  width= " 167 "  height="215"  bgcolor= " #FFFFFF" xa 
href="#"  one 1 i ck= "MM_popupMsg (' This  feature  will  be  enabled  at  a 
later  date . 1 ) " 

onmouseover= "MM_swapImage ( ' BasicRollover ' , ' ' , ' Images/basic_qual_c 
overpage_new_on.gif' ,1) "  onmouseout= "MM_swapImgRestore ( ) "ximg 
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src= " Images /basic_qual_coverpage_new . gif "  name= " Bas i cRol lover " 
width="167"  height="215"  border="0"  align= "bottom" 
id=  "BasicRollover "  /></ax/td> 

<td>&nbsp; </td> 

<td  width= " 167 "  height="215"  bgcolor= " #FFFFFF" ><a 
href =" intermediate . asp"  onmouseout= "MM_swapImgRestore ( ) " 
onmouseover= "MM_swapImage ( 1 IntermediateRollover ' , 1 1 , ' Images/inter 
mediate_qual_coverpage_new_on.gif  '  ,  1)  "ximg 
src= " Images /intermediate_qual_coverpage_new . gif " 
name= " IntermediateRollover "  width="167"  height="215"  border="0" 
align=  "bottom"  id= " IntermediateRollover "  /x/ax/td> 

<td>&nbsp; </td> 

<td  width= " 167 "  height="215"  bgcolor= " #FFFFFF" xa 
href="#"  one 1 i ck= "MM_popupMsg (' This  feature  will  be  enabled  at  a 
later  date . ' ) " 

onmouseover= "MM_swapImage ( ' AdvancedRol lover ' , 1 1 , ' Images/advanced_ 

qual_coverpage_new_on.gif '  ,  1) " 

onmouseout=  "MM_swapImgRestore  ()  "ximg 

src= " Images /advanced_qual_coverpage_new . gif " 

name= "AdvancedRol lover "  width="167"  height="215"  border="0" 

align=  "bottom"  id=  "AdvancedRol lover "  /x/ax/td> 

</tr> 

</ table ></ td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " xtable  width="600"  border="0"  cellspacing^ " 0 " 
cellpadding= " 0 " > 

<tr> 

<td  width="167"  class= " stylelO " xdiv  align="center" 
class= " style9  stylel2"> 

<h5>Future  feature  </h5> 

</divx/td> 

<td>&nbsp; </td> 

<td  width= "  167 "  xdiv  align= " center "  > 

<h5  class= "stylel3 " > 

<% 

Response .Write (pcomplete) 

%>%  Complete  </h5> 

</divx/td> 

<td>&nbsp; </td> 

<td  width= " 167 " xdiv  align="center"  class= " stylell 
stylel2 " > 

<h5>Future  feature  </h5> 

</divx/td> 

</tr> 
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</ table ></ td> 
<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 

</tr> 

</table> 

< /body> 

</html> 

<% 

rsloggedin . Close  ( ) 

Set  rsloggedin  =  Nothing 
%> 

<% 

rs_complete . Close  ( ) 

Set  rs_complete  =  Nothing 
%> 


C.  INTERMEDIATE.ASP  (FIGURE  32) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<% 

■  ***  Logout  the  current  user. 

MM_Logout  =  CStr (Request . ServerVariables ( "URL" ) )  & 

" ?MM_Logoutnow=l " 

If  (CStr (Request ( "MM_Logoutnow" ) )  =  "1")  Then 
Session . Contents . Remove ( "MM_Username " ) 

Session . Contents . Remove ( "MM_UserAuthorization" ) 
MM_logoutRedirectPage  =  "logoff.htm" 

1  redirect  with  URL  parameters  (remove  the  "MM_Logoutnow"  query 

param)  . 

if  (MM_logoutRedirectPage  =  "")  Then  MM_logoutRedirectPage  = 

CStr (Request . ServerVariables ( "URL" ) ) 

If  (InStr(l,  UC_redirectPage ,  vbTextCompare)  =  0  And 

Request . Querystring  <>  "")  Then 
MM_newQS  =  "?" 

For  Each  Item  In  Request . Querystring 
If  (Item  <>  "MM_Logoutnow" )  Then 

If  (Len (MM_newQS)  >  1)  Then  MM_newQS  =  MM_newQS  & 

MM_newQS  =  MM_newQS  &  Item  &  "="  & 

Server .URLencode (Request .Querystring (Item) ) 

End  If 
Next 

if  (Len (MM_newQS )  >  1)  Then  MM_logoutRedirectPage 

MM_logoutRedirectPage  &  MM_newQS 
End  If 

Response . Redirect (MM_logoutRedirectPage) 

End  If 
%> 
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<!--#include  f ile= "Connections/connGroup7 . asp"  --> 

<% 

■  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin, User " 

MM_authFailedURL= " login . asp" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or  _ 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 )  Then 
MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (l,MM_authFailedURL, "?")  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 

if  (Len (Request . Querystring () )  >  0)  Then  MM_referrer 

MM_referrer  &  "?"  &  Request . Querystring ( ) 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 
"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 

End  If 
%> 

<% 

Dim  rs_modlcomplete _ user 

rs_modlcomplete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_modlcomplete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_modlcomplete 

Dim  rs_modlcomplete_numRows 

Set  rs_modlcomplete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_modlcomplete . ActiveConnection  =  MM_connGroup7_STRING 
rs_modlcomplete .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_modlcomplete _ user,  AND  nbrModuleNumber=l ; " 

rs_modlcomplete . CursorType  =  0 
rs_modlcomplete . CursorLocation  =  2 
rs_modlcomplete . LockType  =  1 
rs_modlcomplete . Open ( ) 

rs_modlcomplete_numRows  =  0 
%> 

<% 

Dim  rs_mod2 complete _ user 

rs_mod2 complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod2 complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod2 complete 

Dim  rs_mod2complete_numRows 
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Set  rs_mod2 complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod2 complete . ActiveConnection  =  MM_connGroup7_STRING 
rs_mod2 complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod2 complete _ user,  AND  nbrModuleNumber=2 ; " 

rs_mod2 complete . CursorType  =  0 
rs_mod2 complete . CursorLocation  =  2 
rs_mod2 complete . LockType  =  1 
rs_mod2 complete . Open ( ) 

rs_mod2complete_numRows  =  0 
%> 

<% 

Dim  rs_mod3 complete _ user 

rs_mod3 complete _ user  =  "m@n" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod3 complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod3 complete 

Dim  rs_mod3complete_numRows 

Set  rs_mod3 complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod3 complete .ActiveConnection  =  MM_connGroup7_STRING 
rs_mod3 complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod3 complete _ user,  AND  nbrModuleNumber=3 ; " 

rs_mod3 complete . CursorType  =  0 
rs_mod3 complete . CursorLocation  =  2 
rs_mod3 complete . LockType  =  1 
rs_mod3  complete . Open ( ) 

rs_mod3complete_numRows  =  0 
%> 

<% 

Dim  rs_mod4 complete _ user 

rs_mod4 complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod4 complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod4 complete 

Dim  rs_mod4complete_numRows 

Set  rs_mod4 complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod4 complete .ActiveConnection  =  MM_connGroup7_STRING 
rs_mod4 complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod4 complete _ user,  AND  nbrModuleNumber=4 ; " 

rs_mod4 complete . CursorType  =  0 
rs_mod4 complete . CursorLocation  =  2 
rs_mod4 complete . LockType  =  1 
rs_mod4 complete . Open ( ) 
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rs_mod4complete_numRows  =  0 
%> 

<% 

Dim  rs_mod5complete _ user 

rs_mod5complete _ user  =  "m@n" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod5complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod5complete 

Dim  rs_mod5complete_numRows 

Set  rs_mod5complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod5complete . ActiveConnection  =  MM_connGroup7_STRING 
rs_mod5complete .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod5complete _ user,  AND  nbrModuleNumber=5 ; " 

rs_mod5complete . CursorType  =  0 
rs_mod5complete . CursorLocation  =  2 
rs_mod5complete . LockType  =  1 
rs_mod5complete . Open ( ) 

rs_mod5complete_numRows  =  0 
%> 

<% 

Dim  rs_mod6 complete _ user 

rs_mod6 complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod6 complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod6 complete 

Dim  rs_mod6complete_numRows 

Set  rs_mod6 complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod6 complete .ActiveConnection  =  MM_connGroup7_STRING 
rs_mod6 complete .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod6 complete _ user,  AND  nbrModuleNumber=6 ; " 

rs_mod6 complete . CursorType  =  0 
rs_mod6 complete . CursorLocation  =  2 
rs_mod6 complete . LockType  =  1 
rs_mod6 complete . Open ( ) 

rs_mod6complete_numRows  =  0 
%> 

<% 

Dim  rs_mod7complete _ user 

rs_mod7complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod7complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod7complete 
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Dim  rs_mod7complete_numRows 

Set  rs_mod7complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod7complete . ActiveConnection  =  MM_connGroup7_STRING 
rs_mod7complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod7complete _ user,  AND  nbrModuleNumber=7 ; " 

rs_mod7complete . CursorType  =  0 
rs_mod7complete . CursorLocation  =  2 
rs_mod7complete . LockType  =  1 
rs_mod7complete . Open ( ) 

rs_mod7complete_numRows  =  0 
%> 

<% 

Dim  rs_mod8 complete _ user 

rs_mod8 complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod8 complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod8 complete 

Dim  rs_mod8complete_numRows 

Set  rs_mod8 complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod8 complete .ActiveConnection  =  MM_connGroup7_STRING 
rs_mod8 complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod8 complete _ user,  AND  nbrModuleNumber=8 ; " 

rs_mod8 complete . CursorType  =  0 
rs_mod8 complete . CursorLocation  =  2 
rs_mod8 complete . LockType  =  1 
rs_mod8 complete . Open ( ) 

rs_mod8complete_numRows  =  0 
%> 

<% 

Dim  rs_mod9complete _ user 

rs_mod9complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_mod9complete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_mod9complete 

Dim  rs_mod9complete_numRows 

Set  rs_mod9complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_mod9complete .ActiveConnection  =  MM_connGroup7_STRING 
rs_mod9complete .  Source  =  "SELECT  Count  (* )  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_mod9complete _ user,  AND  nbrModuleNumber=9 ; " 

rs_mod9complete . CursorType  =  0 
rs_mod9complete . CursorLocation  =  2 
rs_mod9complete . LockType  =  1 
rs_mod9complete . Open ( ) 
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rs_mod9complete_numRows  =  0 
%> 

<% 

Dim  rs_modlO complete _ user 

rs_modlO complete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_modlOcomplete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_modlO complete 

Dim  rs_modlOcomplete_numRows 

Set  rs_modlO complete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_modlO complete . ActiveConnection  =  MM_connGroup7_STRING 
rs_modlO complete .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_modlO complete _ user,  AND 

nbrModuleNumber=10 ;  " 

rs_modl 0 complete . CursorType  =  0 
rs_modlO complete . CursorLocation  =  2 
rs_modl 0 complete . LockType  =  1 
rs_modlO complete . Open ( ) 

rs_modlOcomplete_numRows  =  0 
%> 

<% 

Dim  rs_modllcomplete _ user 

rs_modllcomplete _ user  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_modllcomplete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_modllcomplete 

Dim  rs_modllcomplete_numRows 

Set  rs_modllcomplete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_modllcomplete .ActiveConnection  =  MM_connGroup7_STRING 
rs_modllcomplete . Source  =  "SELECT  Count  (*)  FROM  qryAllLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_modllcomplete _ user,  AND 

nbrModuleNumber=ll ; " 

rs_modllcomplete . CursorType  =  0 
rs_modllcomplete . CursorLocation  =  2 
rs_modllcomplete . LockType  =  1 
rs_modllcomplete . Open ( ) 

rs_modllcomplete_numRows  =  0 
%> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : // www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 

<html  xmlns= "http : //www . w3 . org/ 1999/xhtml " > 

<head> 
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<meta  http-equiv=" Content -Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 

<title>IP  Qualbook:  Intermediate  Summary</title> 

<script  language= "JavaScript "  type= " text/ j avascript " > 

<!-- 

function  mmLoadMenus ( )  { 

if  (window. mm_menu_0304113510_0)  return; 

window. mm_menu_0304113510_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif", 12,  "#000000",  "#FFFFFF"  ,  "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  04113  510_0 . addMenuItem ( " 101 " , " location= ' update . asp 

mm_menu_03  04113  510_0 . addMenuItem ( " 102 " , " location= ' update . asp 
mm_menu_0304113510_0 . hideOnMouseOut=true ; 
mm_menu_0304113510_0 ,bgColor= ' #555555 ' ; 
mm_menu_0304113510_0 . menuBorder=l ; 
mm_menu_0304113510_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0304113510_0 . menuBorderBgColor= 1 #777777 1 ; 


window. mm_menu_0304113604_0  =  new  Menu ( "root" , 48 , 18 , "Verdana,  Arial, 

Helvetica,  sans- 

serif", 12,  "#3333  FF " , "#FFFFFF" , "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  04113  6  04_0 . addMenuItem ( " 101 " , " location= ' update . asp?SecNbr=101 
"'); 

mm_menu_03  04113  6  04_0 . addMenuItem ( " 102 " , " location= ' update . asp?SecNbr=102 

mm_menu_03  04113  6  04_0 . addMenuItem ( " 103 " , " location= ' update . asp?SecNbr=103 

mm_menu_03  04113  6  04_0 . addMenuItem ( " 104 " , " location= ' update . asp?SecNbr=104 

mm_menu_03  04113  6  04_0 . addMenuItem ( " 105 " , " location= ' update . asp?SecNbr=105 
'"); 

mm_menu_03  04113  6  04_0 . hideOnMouseOut  =  true ; 
mm_menu_0304113604_0 .bgColor= ' #00CC33 '  ; 
mm_menu_0304113604_0 . menuBorder=l ; 
mm_menu_0304113604_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0304113604_0 . menuBorderBgColor= 1 #00CC33 1 ; 
window. mm_menu_0305113223_0  =  new  Menu ( "root" , 48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, " #333 3FF " , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle"  ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  05113 223_0 . addMenuItem ( " 201 " , " location= ' update . asp?SecNbr=2  01 
'"); 

mm_menu_03 05113 223_0 . addMenuItem ( " 202 " , " location= ' update . asp?SecNbr=202 
'  " )  ; 
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mm_menu_03  05113 223_0 . addMenuItem ( " 203 " , " locations ' update . asp?SecNbr=203 
mm_menu_03  05113 223_0 . addMenuItem ( " 204 " , " location= ' update . asp?SecNbr=2  04 
mm_menu_0305113223_0 . addMenuItem ( " 205 " , " locations ' update . asp?SecNbr=205 
mm_menu_0305113223_0 . addMenuItem ( " 206 " , " location= ' update . asp?SecNbr=206 
mm_menu_0305113223_0 . addMenuItem ( " 207 " , " location= ' update . asp?SecNbr=207 
mm_menu_03  05113 223_0 . addMenuItem ( " 208 " , " location= ' update . asp?SecNbr=208 
mm_menu_03  05113 223_0 . addMenuItem ( " 209 " , " location= ' update . asp?SecNbr=209 

mm_menu_0305113223_0 . addMenuItem ("210", " location= ' update . asp?SecNbr=210 

mm_menu_03  05113  223_0 . hideOnMouseOut=true ; 
mm_menu_0305113223_0 . bgColor= ' #00CC33 ' ; 
mm_menu_0305113223_0 . menuBorder=l ; 
mm_menu_0305113223_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305113223_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window.mm_menu_03  05113  621_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, " #3333FF " , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle" ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  05113  621_0 . addMenuItem ( " 301 " , " location= ' update . asp?SecNbr=3  01 
mm_menu_03  05113  62 1_0 . addMenuItem ("302", " location= ' update . asp?SecNbr=3  02 
mm_menu_03  05113  62 1_0 . addMenuItem ("303  ", " location= ' update . asp?SecNbr=3  03 
mm_menu_03 05113  62 1_0 . addMenuItem ("304", " locations ' update . asp?SecNbr=3  04 
mm_menu_03  05113  621_0 . addMenuItem ( " 305 " , " locations ' update . asp?SecNbr=3  05 
mm_menu_0305113621_0 . addMenuItem ( "306 " , " locations ' update . asp?SecNbr=306 

mm_menu_03  05113  621_0 . addMenuItem ( " 307 " , " locations ' update . asp?SecNbr=3  07 

mm_menu_0305113621_0 . hideOnMouseOut=true ; 
mm_menu_0305113621_0 .bgColor= ' #00CC33  '  ; 
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mm_menu_0305113621_0 . menuBorder=l ; 

mm_menu_03  05113  621_0 . menuLiteBgColor= ' #FFFFFF  '  ; 

mm_menu_0305113621_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window.mm_menu_03  05113  83  0_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif", 12,  "#3333  FF " , "#FFFFFF" , "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  05113  83  0_0 . addMenuItem ( "401 " , " location= ' update . asp?SecNbr=4  01 

'  " )  ; 

mm_menu_03  05113  83  0_0 . hideOnMouseOut  =  true ; 
mm_menu_0305113830_0 ,bgColor= ' #00CC33 ' ; 
mm_menu_0305113830_0 . menuBorder=l ; 
mm_menu_0305113830_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305113830_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window.mm_menu_0305113953_0  =  new  Menu ( "root" , 48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif", 12,  "#3333  FF " , "#FFFFFF" , "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03  05113  953_0 . addMenuItem ( " 501 " , " location= ' update . asp?SecNbr=501 
", )  ; 

mm_menu_0  305113953_0. hi deOnMous  eOut  =  t  rue ; 
mm_menu_0305113953_0 .bgColor= ' #00CC33 ' ; 
mm_menu_03  05113  953_0 . menuBorder=l ; 
mm_menu_0305113953_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_03 05113 953_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window. mm_menu_0305114102_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  ,  12,  " #3333FF "  ,  "#FFFFFF"  ,  "#FFFFFF" , "#000000" , "left" , "middle" ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_0305114102_0 . addMenuItem ( " 601 " , " location= ' update . asp?SecNbr=601 
"'); 

mm_menu_03  05114 102_0 . addMenuItem ( " 602 " , " location= ' update . asp?SecNbr=6  02 

mm_menu_03  05114 102_0 . addMenuItem ( " 603  " , " location= ' update . asp?SecNbr=6  03 
'"); 

mm_menu_03  05114102_0 . hideOnMouseOut  =  true ; 
mm_menu_0305114102_0 .bgColor= ' #00CC33 ' ; 
mm_menu_0305114102_0 . menuBorder=l ; 
mm_menu_0305114102_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114102_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window. mm_menu_0305114308_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif", 12,  "#3333  FF " , "#FFFFFF" , "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_0305114308_0 . addMenuItem ( " 701 " , " location= ' update . asp?SecNbr=701 
'  " )  ; 
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mm_menu_03  051143 08_0 . addMenuItem ( " 702 " , " locations ' update . asp?SecNbr=702 

mm_menu_03  051143  08_0 . addMenuItem ("703" , " location= ' update . asp?SecNbr=703 

mm_menu_03  051143  08_0 . hideOnMouseOut  =  true ; 
mm_menu_0305114308_0 . bgColor= ' #00CC33 ' ; 
mm_menu_0305114308_0 . menuBorder=l ; 
mm_menu_0305114308_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114308_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window. mm_menu_0305114413_0  =  new  Menu ( "root ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif", 12,  "#3333  FF " , "#FFFFFF" , "#FFFFFF" , "#000000", "left", "middle  ",  3 , 0 , 1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_0305114413_0 . addMenuItem ( " 801 " , " location= ' update . asp?SecNbr=801 

mm_menu_03  05114413_0 . hideOnMouseOut  =  true ; 
mm_menu_0305114413_0 . bgColor= ' #00CC33 ' ; 
mm_menu_0305114413_0 . menuBorder=l ; 
mm_menu_0305114413_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114413_0 . menuBorderBgColor= 1 #00CC33  1  ; 

window. mm_menu_0305114448_0  =  new  Menu ( "root" , 48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, " #333 3FF " , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle"  ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_0305114448_0 . addMenuItem ( " 901 " , " location= ' update . asp?SecNbr=901 
'"); 

mm_menu_0305114448_0 . hideOnMouseOut=true ; 
mm_menu_0305114448_0 .bgColor= ' #00CC33 ' ; 
mm_menu_0305114448_0 . menuBorder=l ; 
mm_menu_0305114448_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114448_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window . mm_menu_03 05114519_0  =  new  Menu ( "root ",  56 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, " #3333FF " , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle" ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03 05114 519_0 . addMenuItem ( " 1001 " , " location= ' update . asp?SecNbr=10 
01'  ")  ; 

mm_menu_03  05114 519_0 . addMenuItem ( " 1002 " , " location= ' update . asp?SecNbr=10 
02  '  "  )  ; 

mm_menu_03 05114 519_0 . addMenuItem ( "1003 " , " location= ' update . asp?SecNbr=10 
03  '  "  )  ; 

mm_menu_0305114519_0 . addMenuItem ( "1004 " , " location= ' update . asp?SecNbr=10 
04 '  "  )  ; 

mm_menu_03  05114  519_0 . hideOnMouseOut  =  true ; 
mm_menu_0305114519_0 .bgColor= ' #00CC33 ' ; 
mm_menu_0305114519_0 . menuBorder=l ; 
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mm_menu_0305114519_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114519_0 . menuBorderBgColor= 1 #00CC33 1 ; 

window. mm_menu_0305114639_0  =  new  Menu ( "root ",  56 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, " #33  33  FF " , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle" ,3,0,1 
00, -5, 7, true, true, true, 0, true, true) ; 

mm_menu_03 05114 63  9_0 . addMenuItem ( " 1101 " , " location= ' update . asp?SecNbr=ll 
01'  ")  ; 

mm_menu_0305114639_0 . hideOnMouseOut=true ; 
mm_menu_0305114639_0 ,bgColor= ' #00CC33 ' ; 
mm_menu_0305114639_0 . raenuBorder=l ; 
mm_menu_0305114639_0 . menuLiteBgColor= ' #FFFFFF ' ; 
mm_menu_0305114639_0 . menuBorderBgColor= 1 #00CC33 1 ; 

mm_menu_03  05114  63  9_0 . writeMenus ( )  ; 

}  //  mmLoadMenus ( ) 

function  MM_swapImgRestore ( )  {  //v3.0 

var  i,x,a=document.MM_sr; 

for(i=0;a&&i<a. length&& (x=a [i] ) &&x . oSrc ; i++)  x . src=x . oSrc ; 

} 

function  MM_f indOb j (n,  d)  {  //v4.01 

var  p , i , x ;  if(!d)  d=document; 

if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 

d=parent . frames [n . substring (p+1) ] . document ; 
n=n. substring (0,p) ; } 

if ( ! (x=d [n] ) &&d . all )  x=d.all[n];  for 

( i  =  0  ,-! x&&i<d .  forms  .  length;  i  +  + )  x=d. forms [i] [n]; 

f or (i=0 ; ! x&&d . layers&&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_swapImage ( )  {  //v3.0 

var  i , j =0 , x, a=MM_swapImage . arguments ;  document . MM_sr=new  Array; 
f or (i=0 ; i< (a . length- 2 ) ; i+=3 ) 

if  ( (x=MM_f indObj  (a  [i] ) )  ! =null) {document .MM_sr [ j  +  +  ] =x; 

if(lx.oSrc)  x . oSrc=x. src ;  x . src=a  [i  +  2]  ;  } 

} 

function  MM_preloadImages ( )  {  //v3.0 

var  d=document;  if (d . images ) {  if(!d.MM_p)  d.MM_p=new  Array () ; 
var  i ,  j =d . MM_p . length, a=MM_preloadImages . arguments ;  for(i  =  0; 
i<a. length;  i++) 

if  (a  [i]  . indexOf ("#")! =0) {  d . MM_p [ j ] =new  Image; 

d . MM_p [ j  +  +  ]  . src=a  [i]  ; } } 

} 

//--> 

</script> 

<link  href="stylesheet . css"  rel= " stylesheet "  type= " text/css "  /> 
<script  language= "JavaScript "  src= "mm_menu . j s " ></script> 

<style  type="text/css"> 

<  !  -- 

a:visited  { 
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color:  #3  3  6  6CC ; 


} 

-  -  > 

</ style ></head> 

<body 

onload= "MM_preloadImages ( ' Images/back_to_main_on . gif  1 ,  ' Images /browse_qu 
al_on .gif',  ' Images /logout_on . gif  1 ) " > 

<script  language= " JavaScriptl . 2 " >mmLoadMenus ( ) ;</script> 

<table  width="800"  border="0"  align="center"  cellpadding= " 0 " 
cellspacing= " 0 " > 

<tr> 

<td  colspan= " 8 " ximg  src=  " Images/innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= "  6  "  xdiv  align= "  center "  > 

ctable  width="100%"  border="0"  cellspacing= " 0 " 

cellpadding= " 0 "  > 

<tr> 

<tdxdiv  align=  " lef  t "  xa  href  =  "welcome  .  asp" 

onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage ( 'BackToMainl 1 ,  1  1 ,  ' Images/back_to_main_on . gif  1 
, 1) "ximg  src="Images/back_to_main.gif "  name= "BackToMainl "  width="130" 

height="30"  border="0"  id=  "BackToMain"  /x/ax/divx/td> 

<td>&nbsp; </td> 

<tdxdiv  align= " center "  xa  href="PDF/IP%20IQ%20- 

%2030%20Sep%202004.pdf"  target= "_blank" 

onmouseover= "MM_swapImage ( ' BrowseQuall ' , ' ' , ' Images/browse_qual_on . gif ' , 
1) "  onmouseout= "MM_swapImgRestore ( ) "ximg  src= " Images/browse_qual . gif " 
name="BrowseQuall"  width="130"  height="30"  border="0"  id= "BrowseQual " 
/  x/ax/divx/td> 

<td>&nbsp; </td> 

ctdxdiv  align="right"xa  href="<%=  MM_Logout  %>" 
onmouseout= "MM_swapImgRestore () " 

onmouseover=  "MM_swapImage  (' Logout  1 '  ,  '  '  ,  '  Images/logout_on . gif  '  ,1)  "ximg 
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src= " Images/logout . gif "  name=" Logout 1"  width="130"  height="30" 

border="0"  id=  "Logout"  /></ax/divx/td> 

</tr> 

</table> 

</divx/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " xh4 >Here  is  a  summary  of  your  current  progess 
in  the  Intermediate  Qual :  </h4x/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " xtable  width="100%"  border="0" 

cellspacing= " 0 "  cellpadding= " 0 " > 

<tr> 

<tdxp 

align= " right " ><%= (rs_modl complete .Fields . Item ( "ExprlOOO " ) . Value) %></ px 
/td> 

ctdxp  align= "  center"  >of</px/td> 

<tdxp>120</px/td> 

<tdxp  class="stylell"xspan 

class= " stylel " >&nbsp ; 1 . </span>  <a  href="#"  name="link3"  id="link2" 
onmouseover= "MM_showMenu (window . mm_menu_0304113604_0 ,0,15, null , 1 link3 1 ) 

"  onmouseout= "MM_startTimeout ( ) ; " >Inf ormation  Systems  Officer</a> 
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</px/td> 

</tr> 

<tr> 

<tdxp 

align= " right "  x%= (rs_mod2 complete .Fields . Item ( "ExprlOOO " ) . Value) %></ px 
/  td> 

<tdxp  align= " center"  >of</px/td> 

<tdxp>60</px/td> 

<tdxp  class="stylell">  <span  class= " stylel " >&nbsp ; 2 . 
</spanxa  href="#"  name="link4"  id="linkl" 

onmouseover= "MM_showMenu (window . mm_menu_0305113223_0 ,0,15, null , 1 link4 1 ) 

"  onmouseout= "MM_startTimeout ( ) ; " >Communications  Officer</a> 

</px/td> 

</tr> 

<tr> 

<tdxp 

align= " right " ><%= (rs_mod3 complete .Fields . Item ( "ExprlOOO " ) . Value) %></p>< 
/td> 

<tdxp  align= " center"  >of</px/td> 

<tdxp>71</px/td> 

<tdxp  class="stylell">  <span 

class= " stylel " >&nbsp ; 3 . c/span>  <a  href="#"  name="link5"  id="link5" 
onmouseover= "MM_showMenu (window . mm_menu_03  05113  621_0 ,0,15,  null ,  1 link5 1 ) 

"  onmouseout= "MM_startTimeout ( ) ; " >Staf f  C4I  Officer</a> 

</px/td> 

</tr> 

<tr> 

<tdxp 

align= " right " ><%= (rs_mod4 complete .Fields . Item ( "ExprlOOO " ) . Value) %></ px 
/  td> 

ctdxp  align= " center"  >of</px/td> 

<tdxp>17</px/td> 

ctdxp  class="stylell">  cspan 

class= " stylel " >&nbsp ; 4 . c/span>  <a  href="#"  name="link6"  id="link6" 
onmouseover= "MM_showMenu (window . mm_menu_03 05113  83  0_0 ,0,15, null ,  1 link6 1 ) 

"  onmouseout=  "MM_startTimeout  ( )  ;">Space  Of  f  icer</ax/px/td> 

</tr> 

<tr> 

ctdxp 

align= "  right "  x%=  (rs_mod5  complete  .Fields  .  Item  ( "ExprlOOO " )  .  Value)  %x/px 
/  td> 

ctdxp  align= "  center"  >ofc/px/td> 
ctd>cp>40c/p>c/td> 

ctd>cp  class="stylell">  cspan 

class= " stylel " >&nbsp ; 5 . c/span>  ca  href="#"  name="link7"  id="link7" 
onmouseover= "MM_showMenu (window . mm_menu_03  05113  953_0 ,0,15, null ,  1 link7 ' ) 

"  onmouseout= "MM_startTimeout ( ) ; " >Inf ormation  Assurance 

Officerc/a>c/p>c/td> 
c/tr> 
ctr> 

ctd>cp 

align= "  right "  >c%=  (rs_mod6  complete  .Fields  .  Item  ( "ExprlOOO " )  .  Value)  %x/px 
/  td> 

ctdxp  align= " center"  >ofc/p>c/td> 
ctd>cp>10c/p>c/td> 

ctd>cp  class="stylell">  cspan 

class= " stylel " >&nbsp ; 6 . c/span>  ca  href="#"  name="link8"  id="link8" 
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onmouseover= "MM_showMenu (window . mm_menu_0305114102_0 ,0,15, null , 1 link8 ' ) 

"  onmouseout= "MM_startTimeout ( ) ; " >Chief  Information 

Of  f  icer</ax/px/td> 

</tr> 

<tr> 

<tdxp 

align= " right " ><%= (rs_mod7 complete .Fields . Item ( "ExprlOOO " ) . Value) %></p>< 
/td> 

<tdxp  align= " center"  >of </px/td> 

<tdxp>26</px/td> 

<tdxp  class="stylell"xspan 

class= " stylel " >&nbsp ; 7 . c/span>  <a  href="#"  name="link9"  id="link9" 
onmouseover= "MM_showMenu (window . mm_menu_0305114308_0 ,0,15, null , 1 link9 1 ) 

"  onmouseout= "MM_startTimeout ( )  ;">Knowledge  Manager</ax/px/td> 

</tr> 

<tr> 

<tdxp 

align= "  right "  ><%=  (rs_mod8  complete  .Fields  .  Item  ( "ExprlOOO " )  .  Value)  %x/px 
/td> 

ctdxp  align= " center"  >of</px/td> 

<tdxp>ll</px/td> 

<tdxp  class="stylell">  <span 

class= " stylel " >&nbsp ; 8 . </span>  <a  href="#"  name= " linklO "  id="linkl0" 
onmouseover= "MM_showMenu (window . mm_menu_03 051144 13_0 ,0,15, null , 1 linklO 1 
)"  onmouseout= "MM_startTimeout ( ) ; " >Inf ormation  Operations  Officer</a> 
</px/td> 

</tr> 

<tr> 

<tdxp 

align= " right " ><%= (rs_mod9 complete .Fields . Item ( "ExprlOOO " ) . Value) %></ px 
/td> 

<tdxp  align= "  center"  >of</px/td> 

<tdxp>3</px/td> 

ctdxp  class="stylell"xspan 

class= " stylel " >&nbsp ; 9 . </span>  <a  href="#"  name= " linkll "  id="linkll" 
onmouseover= "MM_showMenu (window . mm_menu_03 051 1444 8_0 ,0,15, null , 1 linkll 1 
)"  onmouseout="MM_startTimeout () ; ">C4I  Systems  Acquisition  Officer 
</ax/px/td> 

</tr> 

<tr> 

ctdxp 

align= " right "  x%= (rs_modl0 complete .Fields . Item ( "ExprlOOO " ) . Value) %>c/p> 
c/td> 

ctdxp  align= " center"  >ofc/p>c/td> 
ctdxp  >24c/px/td> 

ctd>cp  class="stylell">  cspan  class= " stylel " >10  .  c/span> 
ca  href="#"  name= " linkl2 "  id="linkl2" 

onmouseover= "MM_showMenu (window . mm_menu_0305114519_0 ,0,15, null , 1 linkl2 1 
)"  onmouseout=  "MM_startTimeout  ( )  ;  "  >Combat  Systems  Officer  c/ax/px/td> 
c/tr> 
ctr> 

ctd>cp 

align= " right "  x%= (rs_modll complete .Fields . Item ( "ExprlOOO " ) . Value) %>c/p> 
c/td> 

ctd>cp  align= " center" >ofc/p>c/td> 
ctd>cp>3c/p>c/td> 
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ctdxp  class="stylell"  xspan  class="stylel "  >11 .  </span> 
<a  href="#"  name= " linkl3 "  id="linkl3" 

onmouseover= "MM_showMenu (window . mm_menu_03  05114  63  9_0 ,0,15, null ,  1 linkl3 1 
)"  onmouseout=  "MM_startTimeout  ( )  ;  "  >Watch  Positions</a>  </px/td> 

</tr> 

</ table ></ td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6"  class= " style6 " >&nbsp ; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="5">&nbsp;</td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 
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<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
/tr> 
tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 


<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " >&nbsp; </td> 
<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 
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<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

</table> 

</body> 

</html> 

<% 

rs_modlcomplete . Close  ( ) 

Set  rs_modlcomplete  =  Nothing 
%> 

<% 

rs_mod2 complete . Close ( ) 

Set  rs_mod2 complete  =  Nothing 
%> 

<% 

rs_mod3 complete . Close ( ) 

Set  rs_mod3 complete  =  Nothing 
%> 

<% 

rs_mod4 complete . Close ( ) 

Set  rs_mod4 complete  =  Nothing 
%> 

<% 

rs_mod5complete . Close ( ) 

Set  rs_mod5complete  =  Nothing 
%> 

<% 

rs_mod6 complete . Close ( ) 

Set  rs_mod6 complete  =  Nothing 
%> 

<% 

rs_mod7complete . Close ( ) 

Set  rs_mod7complete  =  Nothing 
%> 

<% 

rs_mod8 complete . Close ( ) 

Set  rs_mod8 complete  =  Nothing 
%> 

<% 

rs_mod9complete . Close ( ) 

Set  rs_mod9complete  =  Nothing 
%> 

<% 

rs_modlO complete . Close ( ) 

Set  rs_modlO complete  =  Nothing 
%> 

<% 

rs_modllcomplete . Close ( ) 

Set  rs_modllcomplete  =  Nothing 
%> 

D.  UPDATE. ASP  (FIGURE  33) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<% 

■  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin, User " 
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MM_authFailedURL= " login . asp" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or  _ 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 ) 
Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (1 , MM_authFailedURL, "?" )  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 
if  (Len (Request . Querystring () )  >  0)  Then  MM_referrer  = 

MM_referrer  &  "?"  &  Request . Querystring ( ) 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 
"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 

End  If 
%> 

<!--#include  f ile= "Connections/connGroup7 . asp"  --> 

<% 

Dim  rs_LineItems _ User 

rs_LineItems _ User  =  "john@lennon.com" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_LineItems _ User  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_LineItems _ SecNbr 

rs_LineItems _ SecNbr  =  "101" 

If  (Request .Querystring ( "SecNbr" )  <>  "")  Then 

rs_LineItems _ SecNbr  =  Request .Querystring ( "SecNbr" ) 

End  If 
%> 

<% 

Dim  rs_LineItems 

Dim  rs_LineItems_numRows 

Set  rs_LineItems  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_LineItems . ActiveConnection  =  MM_connGroup7_STRING 
rs_LineItems .  Source  =  "SELECT  *  FROM  qryAHLineltems  WHERE 

txtEmail= ' "  +  Replace (rs_LineItems _ User,  AND 

nbrSectionNumber= "  +  Replace (rs_LineItems _ SecNbr,  + 

ORDER  BY  txtLineltemNumber " 
rs_LineItems . CursorType  =  0 
rs_LineItems . CursorLocation  =  2 
rs_LineItems . LockType  =  1 
rs_LineItems . Open ( ) 

rs_LineItems_numRows  =  0 
%> 

<% 

Dim  rs_AHLIinSection _ SecNbr 

rs_AHLIinSection _ SecNbr  =  "101" 

If  (Request .Querystring ( "SecNbr" ) 
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<  > 


" " )  Then 


rs_AHLIinSection _ SecNbr  =  Request  .Querystring  ( "SecNbr" ) 

End  If 
%> 

<% 

Dim  Repeat  1 _ nuraRows 

Dim  Repeatl _ index 

Repeat 1 _ numRows  =  10 

Repeatl _ index  =  0 

rs_LineItems_numRows  =  rs_LineItems_numRows  +  Repeatl _ numRows 

%> 

<% 

■  ***  Recordset  Stats,  Move  To  Record,  and  Go  To  Record:  declare 

stats  variables 

Dim  rs_LineItems_total 
Dim  rs_LineItems_f irst 
Dim  rs_LineItems_last 

1  set  the  record  count 

rs_LineItems_total  =  rs_LineItems . RecordCount 

'  set  the  number  of  rows  displayed  on  this  page 
If  (rs_LineItems_numRows  <  0)  Then 

rs_LineItems_numRows  =  rs_LineItems_total 
Elseif  (rs_LineItems_numRows  =  0)  Then 
rs_LineItems_numRows  =  1 
End  If 

'  set  the  first  and  last  displayed  record 
rs_LineItems_f irst  =  1 

rs_LineItems_last  =  rs_LineItems_f irst  +  rs_LineItems_numRows  - 
1 


'  if  we  have  the  correct  record  count,  check  the  other  stats 
If  (rs_LineItems_total  <>  -1)  Then 

If  (rs_LineItems_f irst  >  rs_LineItems_total )  Then 
rs_LineItems_f irst  =  rs_LineItems_total 
End  If 

If  (rs_LineItems_last  >  rs_LineItems_total )  Then 
rs_LineItems_last  =  rs_LineItems_total 
End  If 

If  (rs_LineItems_numRows  >  rs_LineItems_total )  Then 
rs_LineItems_numRows  =  rs_LineItems_total 
End  If 
End  If 


Dim  MM_paramName 
%> 

<% 

'  ***  Move  To  Record  and  Go  To  Record:  declare  variables 

Dim  MM_rs 
Dim  MM_rsCount 
Dim  MM_size 
Dim  MM_uniqueCol 
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Dim  MM_offset 

Dim  MM_atTotal 

Dim  MM_paramIsDe fined 

Dim  MM_param 
Dim  MM_index 

Set  MM_rs  =  rs_LineItems 
MM_rsCount  =  rs_LineItems_total 
MM_size  =  rs_LineItems_numRows 

MM_uniqueCol  =  " " 

MM_paramName  =  " " 

MM_offset  =  0 
MM_atTotal  =  false 
MM_paramIsDe fined  =  false 
If  (MM_paramName  <>  "")  Then 

MM_paramIsDe fined  =  (Request . Querystring (MM_paramName)  <>  "") 
End  If 
%> 

<% 

■  ***  Move  To  Record:  handle  'index'  or  'offset'  parameter 

if  (Not  MM_paramIsDe fined  And  MM_rsCount  <>  0)  then 

'  use  index  parameter  if  defined,  otherwise  use  offset 
parameter 

MM_param  =  Request . Querystring (" index" ) 

If  (MM_param  =  "")  Then 

MM_param  =  Request . Querystring ( "of f set " ) 

End  If 

If  (MM_param  <>  "")  Then 
MM_of f set  =  Int (MM_param) 

End  If 

'  if  we  have  a  record  count,  check  if  we  are  past  the  end  of 
the  recordset 

If  (MM_rsCount  <>  -1)  Then 

If  (MM_offset  >=  MM_rsCount  Or  MM_offset  =  -1)  Then  '  past 
end  or  move  last 

If  ( (MM_rsCount  Mod  MM_size)  >  0)  Then  '  last  page 

not  a  full  repeat  region 

MM_offset  =  MM_rsCount  -  (MM_rsCount  Mod  MM_size) 

Else 

MM_offset  =  MM_rsCount  -  MM_size 
End  If 
End  If 
End  If 

'  move  the  cursor  to  the  selected  record 
MM_index  =  0 

While  ((Not  MM_rs.EOF)  And  (MM_index  <  MM_offset  Or  MM_offset 
-1)  ) 

MM_rs . MoveNext 
MM_index  =  MM_index  +  1 
Wend 

If  (MM  rs.EOF)  Then 
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MM_offset  =  MM_index  1  set  MM_offset  to  the  last  possible 
record 
End  If 

End  If 
%> 

<% 

■  ***  Move  To  Record:  if  we  dont  know  the  record  count,  check  the 
display  range 

If  (MM_rsCount  =  -1)  Then 

1  walk  to  the  end  of  the  display  range  for  this  page 
MM_index  =  MM_offset 

While  (Not  MM_rs . EOF  And  (MM_size  <  0  Or  MM_index  <  MM_offset  + 
MM_size) ) 

MM_rs . MoveNext 
MM_index  =  MM_index  +  1 
Wend 

1  if  we  walked  off  the  end  of  the  recordset,  set  MM_rsCount  and 
MM_size 

If  (MM_rs . EOF)  Then 
MM_rsCount  =  MM_index 

If  (MM_size  <  0  Or  MM_size  >  MM_rsCount)  Then 
MM_size  =  MM_rsCount 
End  If 
End  If 

1  if  we  walked  off  the  end,  set  the  offset  based  on  page  size 
If  (MM_rs.EOF  And  Not  MM_paramIsDe fined)  Then 

If  (MM_offset  >  MM_rsCount  -  MM_size  Or  MM_offset  =  -1)  Then 
If  ( (MM_rsCount  Mod  MM_size)  >  0)  Then 

MM_offset  =  MM_rsCount  -  (MM_rsCount  Mod  MM_size) 

Else 

MM_offset  =  MM_rsCount  -  MM_size 
End  If 
End  If 
End  If 

1  reset  the  cursor  to  the  beginning 
If  (MM_rs . CursorType  >  0)  Then 
MM_rs . MoveFirst 
Else 

MM_rs . Re query 
End  If 

1  move  the  cursor  to  the  selected  record 
MM_index  =  0 

While  (Not  MM_rs . EOF  And  MM_index  <  MM_offset) 

MM_rs . MoveNext 
MM_index  =  MM_index  +  1 
Wend 
End  If 
%> 

<% 

'  ***  Move  To  Record:  update  recordset  stats 
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'  set  the  first  and  last  displayed  record 
rs_LineItems_f irst  =  MM_offset  +  1 
rs_LineItems_last  =  MM_offset  +  MM_size 

If  (MM_rsCount  <>  -1)  Then 

If  (rs_LineItems_f irst  >  MM_rsCount)  Then 
rs_LineItems_f irst  =  MM_rsCount 
End  If 

If  (rs_LineItems_last  >  MM_rsCount)  Then 
rs_LineItems_last  =  MM_rsCount 
End  If 
End  If 

'  set  the  boolean  used  by  hide  region  to  check  if  we  are  on  the 
last  record 

MM_atTotal  =  (MM_rsCount  <>  -1  And  MM_offset  +  MM_size  >= 
MM_rsCount ) 

%> 

<% 

■  ***  go  To  Record  and  Move  To  Record:  create  strings  for 
maintaining  URL  and  Form  parameters 

Dim  MM_keepNone 
Dim  MM_keepURL 
Dim  MM_keepForm 
Dim  MM_keepBoth 

Dim  MM_removeList 
Dim  MM_item 
Dim  MM_nextItem 

'  create  the  list  of  parameters  which  should  not  be  maintained 
MM_removeList  =  "&index=" 

If  (MM_paramName  <>  "")  Then 

MM_removeList  =  MM_removeList  &  &  MM_paramName  &  "=" 

End  If 

MM_ke  epURL  = " " 

MM_keepForm= " " 

MM_keepBoth= " " 

MM_keepNone= " " 

'  add  the  URL  parameters  to  the  MM_keepURL  string 
For  Each  MM_item  In  Request . Querystring 
MM_nextItem  =  &  MM_item  &  "=" 

If  ( InStr ( 1 , MM_removeList , MM_nextItem, 1 )  =  0)  Then 
MM_keepURL  =  MM_keepURL  &  MM_nextItem  & 

Server . URLencode (Request . Querystring (MM_item) ) 

End  If 
Next 

'  add  the  Form  variables  to  the  MM_keepForm  string 
For  Each  MM_item  In  Request. Form 
MM_nextItem  =  &  MM_item  &  "=" 

If  ( InStr ( 1 , MM_removeList , MM_nextItem, 1 )  =  0)  Then 
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MM_keepForm  =  MM_keepForm  &  MM_nextItem  & 

Server . URLencode (Request . Form (MM_item) ) 

End  If 
Next 

'  create  the  Form  +  URL  string  and  remove  the  intial  ' & '  from 
each  of  the  strings 

MM_keepBoth  =  MM_keepURL  &  MM_keepForm 
If  (MM_keepBoth  <>  "")  Then 

MM_keepBoth  =  Right (MM_keepBoth,  Len (MM_keepBoth)  -  1) 

End  If 

If  ( MM_ke epURL  <>  "")  Then 

MM_keepURL  =  Right (MM_keepURL,  Len (MM_ke epURL)  -  1) 

End  If 

If  (MM_keepForm  <>  "")  Then 

MM_keepForm  =  Right (MM_keepForm,  Len (MM_keepForm)  -  1) 

End  If 

'  a  utility  function  used  for  adding  additional  parameters  to 
these  strings 

Function  MM_joinChar (f irstltem) 

If  (f irstltem  <>  "")  Then 
MM_j  o inChar  = 

Else 

MM_j  o inChar  =  "" 

End  If 

End  Function 
%> 

<% 

■  ***  Move  To  Record:  set  the  strings  for  the  first,  last,  next, 
and  previous  links 

Dim  MM_keepMove 
Dim  MM_moveParam 
Dim  MM_moveFirst 
Dim  MM_moveLast 
Dim  MM_moveNext 
Dim  MM_movePrev 

Dim  MM_urlStr 
Dim  MM_paramList 
Dim  MM_paramIndex 
Dim  MM_nextParam 

MM_keepMove  =  MM_keepBoth 
MM_moveParam  =  "index" 

'  if  the  page  has  a  repeated  region,  remove  'offset'  from  the 
maintained  parameters 
If  (MM_size  >  1)  Then 
MM_moveParam  =  "offset" 

If  (MM_keepMove  <>  "")  Then 

MM_paramList  =  Split (MM_keepMove ,  "&") 

MM_keepMove  =  " " 

For  MM_paramIndex  =  0  To  UBound (MM_paramList ) 

MM_nextParam  =  Left (MM_paramList (MM_paramIndex) , 

InStr (MM_paramList (MM_paramIndex) , " = " )  -  1) 
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If  (StrComp (MM_nextParam, MM_moveParam, 1)  <>  0)  Then 
MM_keepMove  =  MM_keepMove  &  & 

MM_paramList (MM_paramIndex) 

End  If 
Next 

If  (MM_keepMove  <>  "")  Then 

MM_keepMove  =  Right (MM_keepMove ,  Len (MM_keepMove)  -  1) 

End  If 
End  If 
End  If 

'  set  the  strings  for  the  move  to  links 
If  (MM_keepMove  <>  "")  Then 

MM_keepMove  =  Server . HTMLEncode (MM_keepMove)  & 

End  If 

MM_urlStr  =  Request . ServerVariables ( "URL" )  &  "?"  &  MM_keepMove  & 
MM_moveParam  &  "=" 

MM_moveFirst  =  MM_urlStr  &  "0" 

MM_moveLast  =  MM_urlStr  &  "-1" 

MM_moveNext  =  MM_urlStr  &  CStr (MM_of f set  +  MM_size) 

If  (MM_offset  -  MM_size  <  0)  Then 
MM_movePrev  =  MM_urlStr  &  "0" 

Else 

MM_movePrev  =  MM_urlStr  &  CStr (MM_off set  -  MM_size) 

End  If 
%> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 

<html  > 

<head> 

<meta  http-equiv="Content-Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 

<title>IP  Qualbook:  Update</title> 

<link  href="stylesheet . css"  rel="stylesheet"  type= " text/css "  /> 
<style  type="text/css"> 

<  !  -- 

.style2  {font-family:  Verdana,  Arial,  Helvetica,  sans-serif} 
.style5  {font-family:  Verdana,  Arial,  Helvetica,  sans-serif; 
font-size:  12px;  } 

.style7  { font- family :  Verdana,  Arial,  Helvetica,  sans-serif; 
font-size:  14px;  } 

.style8  {font-size:  12px} 

.style9  {color:  #3333FF;  font-family:  Verdana,  Arial,  Helvetica, 
sans-serif;  font-size:  12px;  } 

.stylelO  {font-family:  Verdana,  Arial,  Helvetica,  sans-serif; 
color:  #3  333  FF ; } 
a:visited  { 

color:  #3  3  6  6CC ; 

} 

-  -  > 

</style> 

< /head> 

<body> 
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<table  width="800"  border="0"  align= " center "  cellpadding= " 0 " 
cellspacing= " 0 " > 

<tr> 

<td  colspan= "  8  "  ximg  src= " Images/innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td  width= " 72 " >&nbsp ; </td> 

<td  width= " 75 " >&nbsp ; </td> 

<td  width= " 144 " >&nbsp ; </td> 

<td  width= " 144 " >&nbsp ; </td> 

<td  width= " 144 " >&nbsp ; </td> 

<td  widths " 144 " >&nbsp ; </td> 

<td  width="56">&nbsp;</td> 

<td  width= " 73 " >&nbsp ; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  colspan= " 8 " ><% 

While  ( (Repeatl _ numRows  <>  0)  AND  (NOT  rs_LineItems . EOF) ) 

%> 

<table  width="100%"  border="0"  cellspacing= " 0 "  cellpadding= " 0 " > 
<tr> 

<td  width="100"  align="left"  valign= " top" xspan 
class= " style2 " xspan  class= "styles " > 

<a 

href = "detail .asp?LID=<%= (rs_LineItems .Fields . Item ( "nbrLineltemID" 
) .Value) %>" ><%= (rs_LineItems . Fields . Item ( "txtLineltemNumber" ) . Val 
ue)  %x/ax/spanx/spanx/td> 

<td  colspan="6"  align="left"  val ign= " top" xspan 
class= " style 5 " ><%= (rs_LineItems .Fields . Item ( "memLineltemDesc " ) . Va 
lue)  %></spanx/td> 

</tr> 

<tr> 

<td  width="60">&nbsp;</td> 

<td  colspan="6"  align= " lef t " >&nbsp ; </td> 

</tr> 

<tr> 
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<td>&nbsp; </td> 

<td  colspan="6"  align="left"  valign= "bottom" xtable 
width="300"  border="0"  cellspacing= " 0 "  cellpadding= " 0 " > 

<tr> 

<td  width=  "  225  "  xspan 

class= "style 9 " ><%= (rs_LineItems . Fields . Item ( " txt Signature " ) .Value 
)  %x/spanx/td> 

<td  width="75"  align= " right "  class= "  style9 "  xspan 
class= "style 10 " x%= (rs_LineItems . Fields . Item ( "dteDateSigned" ) . Val 
ue)  %x/spanx/td> 

</tr> 

</tablex/td> 

</tr> 

<tr> 


<td>&nbsp; </td> 

<td  width="300"  align= 
align="left"  width="300"  size= 
<td  colspan="5"  align= 
</tr> 


left"  valign=  "bottom"  xhr 
1"  noshade=  "noshade "  /x/td> 
left" >&nbsp; </td> 


<tr> 

<td>&nbsp; </td> 

<td  colspan="6"  align="left"  valign= "bottom" xtable 
width="300"  border="0"  cellspacing= " 0 "  cellpadding= " 0 " > 


<tr> 

<td  width=  "  22  5  "  xspan 
class=  "style 5 "  >Signature</spanx/td> 

<td  width="75"  align= " right " xspan  class= " style7 
style8 "  >Date</spanx/td> 

</tr> 

</tablex/td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6"  valign= "bottom" >&nbsp ; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6"  valign= "bottom" >&nbsp ; </td> 

</tr> 

</table> 


Repeat  1 _ index=Repeat  1 _ index+ 1 

Repeat  1 _ numRows =Repeat  1 _ numRows  - 1 

rs_LineItems . MoveNext ( ) 

Wend 

%> 

</td> 

</tr> 

<tr> 

<td  colspan= " 8 " xtable  width="400"  border="0"  align="left" 
cellpadding= " 0 "  cellspacing= " 0 " > 

<tr  class="style2"> 

<td  width= "  100 "  xdiv  align= " center "  x/divx/td> 

<td  width= "  120 "  xdiv  align= " center "  > 

<%  If  MM_offset  <>  0  Then  %> 
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<A  HREF= " <%=MM_moveFirst%> " >First</A> 

<%  End  If  1  end  MM_offset  <>  0  %> 

</divx/td> 

<td  width= "  120 "  xdiv  align= " center "  > 

<%  If  MM_offset  <>  0  Then  %> 

<A  HREF= " <%=MM_movePrev%> " >Previous</A> 
<%  End  If  1  end  MM_offset  <>  0  %> 

</divx/td> 

<td  width= "  120 "  xdiv  align= " center "  > 

<%  If  Not  MM_atTotal  Then  %> 

<A  HREF= " <  %=MM_moveNext % > " >Next < /A> 

<%  End  If  1  end  Not  MM_atTotal  %> 

</divx/td> 

<td  widths "  120 "  xdiv  align= " center "  > 

<%  If  Not  MM_atTotal  Then  %> 

<A  HREF= " <%=MM_moveLast%> " >Last</A> 

<%  End  If  1  end  Not  MM_atTotal  %> 

</divx/td> 

</tr> 

</tablex/td> 

</tr> 

<tr> 

<td  colspan="8">&nbsp;</td> 

</tr> 

</table> 

<p>&nbsp; </p> 

< /body> 

</html> 

<% 

rs_LineItems . Close ( ) 

Set  rs_LineItems  =  Nothing 
%> 


E.  DETAIL.ASP  (FIGURE  34) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<!--#include  f ile= "Connect ions /connGroup7 . asp"  --> 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin, User " 

MM_authFailedURL= " login . asp" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or  _ 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 )  Then 
MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (l,MM_authFailedURL, "?")  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 

if  (Len (Request . Querystring () )  >  0)  Then  MM_referrer 

MM_referrer  &  "?"  &  Request . Querystring ( ) 
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MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 
"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 

End  If 
%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MM_editAction 
Dim  MM_abortEdit 
Dim  MM_editQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MM_editRedirectUrl 
Dim  MM_editColumn 
Dim  MM_recordId 

Dim  MM_fieldsStr 
Dim  MM_columnsStr 
Dim  MM_fields 
Dim  MM_columns 
Dim  MM_typeArray 
Dim  MM_formVal 
Dim  MM_delim 
Dim  MM_altVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr (Request . ServerVariables (" SCRIPT_NAME ") ) 

If  (Request . Querystring  <>  "")  Then 

MM_editAction  =  MM_editAction  &  "?"  & 

Server . HTMLEncode (Request . Querystring) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_edit Query  =  " " 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr (Request ( "MM_update" ) )  =  "update"  And 

CStr (Request ( "MM_recordId" ) )  <>  "")  Then 

MM_editConnection  =  MM_connGroup7_STRING 
MM_editTable  =  " tblAssigned" 

MM_editColumn  =  "nbrAssignedID" 

MM_recordId  =  ""  +  Request . Form ( "MM_recordId" )  +  "" 
MM_editRedirectUrl  =  " intermediate . asp" 

MM_f ieldsStr  =  " signature | value | dateSigned | value " 

MM_columnsStr 

" txtSignature | 1 ,none, 1 1 | dteDateSigned | 1 , none, NULL" 
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1  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split (MM_f ieldsStr ,  "|") 

MM_columns  =  Split (MM_columnsStr,  "|") 

1  set  the  form  values 

For  MM_i  =  LBound (MM_f ields)  To  UBound (MM_f ields)  Step  2 
MM_f ields (MM_i+l)  =  CStr (Request . Form (MM_f ields (MM_i) ) ) 

Next 

1  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrl  <>  ""  And  Request .  Querystring  <>  "") 

Then 

If  (InStr(l,  MM_editRedirectUrl ,  vbTextCompare)  =  0  And 

Request . Querystring  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  & 

Request . Querystring 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  & 

Request . Querystring 
End  If 
End  If 

End  If 
%> 

<% 

■  ***  update  Record:  construct  a  sql  update  statement  and  execute 
it 


If  (CStr (Request ( "MM_update" ) )  <>  ""  And 

CStr (Request ( "MM_recordId" ) )  <>  "")  Then 

1  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set  " 

For  MM_i  =  LBound (MM_f ields)  To  UBound (MM_f ields)  Step  2 
MM_formVal  =  MM_f ields (MM_i+l) 

MM_typeArray  =  Split (MM_columns (MM_i+l) , " , " ) 

MM_delim  =  MM_typeArray ( 0 ) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray ( 1 ) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray (2 ) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 

Elself  (MM_delim  =  "'")  Then  1  escape  quotes 

MM_f ormVal  =  " ' "  &  Replace (MM_formVal, &  " ' " 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound (MM_f ields) )  Then 
MM_editQuery  =  MM_editQuery  &  " , " 

End  If 
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MM_editQuery  =  MM_editQuery  &  MM_columns (MM_i )  &  "  =  "  & 

MM_f ormVal 

Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  " 
&  MM_recordId 

If  (Not  MM_abortEdit )  Then 
1  execute  the  update 

Set  MM_editCmd  =  Server . CreateObj ect ( "ADODB . Command" ) 

MM_editCmd . ActiveConnection  =  MM_editConnection 

MM_editCmd . CommandText  =  MM_editQuery 

MM_editCmd . Execute 

MM_editCmd .ActiveConnection . Close 

If  (MM_editRedirectUrl  <>  "")  Then 

Response . Redirect (MM_editRedirectUrl ) 

End  If 
End  If 

End  If 
%> 

<% 

Dim  rs_Update _ LID 

rs_Update _ LID  =  "551" 

If  (Request . Querystring ( "LID" )  <>  "")  Then 

rs_Update _ LID  =  Request . Querystring ( "LID" ) 

End  If 
%> 

<% 

Dim  rs_Update _ User 

rs_Update _ User  =  "m@n" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_Update _ User  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_Update 

Dim  rs_Update_numRows 

Set  rs_Update  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_Update .ActiveConnection  =  MM_connGroup7_STRING 

rs_Update .  Source  =  "SELECT  *  FROM  qryAHLineltems  WHERE 

tblAssigned . nbrLineItemID= "  +  Replace (rs_Update _ LID,  +  " 

AND  txtEmail='"  +  Replace (rs_Update _ User, 

rs_Update . CursorType  =  0 
rs_Update . CursorLocation  =  2 
rs_Update . LockType  =  1 
rs_Update . Open ( ) 

rs_Update_numRows  =  0 
%> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 

<html  xmlns= "http : //www . w3 . org/1999/ xhtml " > 

<head> 

<meta  http-equiv=" Content -Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 
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<title>IP  Qualbook:  Signature  Page</title> 

<link  href="stylesheet . css"  rel= " stylesheet "  type= " text/css "  /> 
<script  language= "JavaScript "  type= " text/ JavaScript " > 

< !  -  - 

function  MM_f indOb j (n,  d)  {  //v4.01 

var  p , i , x ;  if(!d)  d=document; 

if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 

d=parent . frames [n . substring (p+1) ] . document ; 
n=n. substring (0,p) ; } 

if ( ! (x=d [n] ) &&d . all )  x=d.all[n];  for 

( i=0 ;! x&&i<d . forms . length; i++ )  x=d. forms [i] [n]  ; 

f or (i=0 ; ! x&&d . layers &&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_validateForm ( )  {  //v4.0 

var 

i , p , q, nm, test , num, min, max, errors = 1 ' , args=MM_validateForm . arguments ; 

for  ( i  =  0  ;  i< (args . length-2 )  ;  i  +  =  3)  {  test=args  [i  +  2]  ; 

val=MM_f indOb j  (args  [i] )  ; 

if  (val)  {  nm=val.name;  if  ( (val=val .value) !="")  { 

if  (test . indexOf (' isEmail ')! =-l)  {  p=val . indexOf (' @ ') ; 

if  (p<l  | |  p== (val . length- 1 ) )  errors+= ' -  ' +nm+ '  must 

contain  an  e-mail  address. \n'; 

}  else  if  (test!='R')  {  num  =  parseFloat (val) ; 

if  (isNaN(val))  errors+= ' -  ' +nm+ '  must  contain  a 

number . \n ' ; 

if  (test . indexOf (' inRange ' )  !=  -1)  {  p=test.indexOf(':'); 

min=test . substring (8 ,p) ;  max=test . substring (p+1 ) ; 
if  (num<min  |  |  maxcnum)  errors  +  = '  -  ' +nm+ '  must  contain 

a  number  between  ' +min+ '  and  1 +max+ ' . \n 1 ; 

}  }  }  else  if  (test .  charAt  (0 )  ==  'R')  errors  +=  '-  ' +nm+ '  is 

required . \n ' ;  } 

}  if  (errors)  alert ('The  following  error (s) 

occurred: \n' +errors) ; 

document . MM_returnValue  =  (errors  ==  ' ') ; 

} 

//--> 

</script> 

<style  type="text/css"> 

<  !  -- 

.stylel  {font-size:  12px} 

-  -  > 

</style> 

</head> 

<body> 

<table  width="800"  border="0"  align="center"  cellpadding= " 0 " 

cellspacing= " 0 " > 

<tr> 

<td  colspan= " 8 " ximg  src=  " Images/innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 
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<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<tdxp>&nbsp  ;</px/td> 

<td  width= "  10  0 "  xp>&nbsp;  </px/td> 

<td  width= "  10  0 "  xp>&nbsp;  </px/td> 

<td  width= "  10  0 "  xp>&nbsp;  </px/td> 

<td  width= "  10  0 "  xp>&nbsp ;  </px/td> 

<td  width= "  10  0 "  xp>&nbsp;  </px/td> 

<td  width= "  10  0 "  xp>&nbsp ;  </px/td> 

<tdxp>&nbsp  ;</px/td> 

</tr> 

<tr> 

<td  width="100"  valign= " top" xp 

class=" sty lei " ><%= (rs_Update . Fields . Item ( " txtLineltemNumber " ) .Value) %>< 
/px/td> 

<td  colspan= "  6  "  xp 

class= "sty lei " ><%= (rs_Update . Fields . Item ( "memLineltemDesc " ) .Value) %></p 
x/td> 

<td  width= "  10  0 "  xp>&nbsp ;  </px/td> 

</tr> 

<tr> 

<tdxp>&nbsp  ;</px/td> 

<td  colspan= "  6  "  xp  class= "  style3  "  >&nbsp ;  </px/td> 

<tdxp>&nbsp  ;</px/td> 

</tr> 

<tr> 

<tdxp>&nbsp  ;</px/td> 

<tdxform  name=  "update "  id="update"  method= "  POST" 

action="<%=MM_editAction%>" > 

<table  width="100%"  border="0"  cellspacing= " 0 " 

cellpadding= "3 " > 

<tr> 

<tdxp> 

<input  name= " signature "  type="text"  id="signature" 
tabindex= " 2 "  value= " <%= (rs_Update .Fields . Item ( "txt Signature" ) . Value) %> " 
/  > 

</px/td> 

<tdxp> 

<input  name="dateSigned"  type="text"  id= "dateSigned" 

tabindex= " 3 " 
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value= "<%= (rs_Update . Fields . Item ( "dteDateSigned" ) .Value) %>"  size=" 8 " 

maxlength= " 8 "  /> 

</px/td> 

<tdxp> 

< input  name= " Submit "  type= " submit "  tabindex="4" 
onclick= "MM_validateForm ( ' signature ' , ' ' , ' R ' , ' dateSigned ' , ' ' , ' R ' ) ; return 
document . MM_returnValue "  value= " Submit "  /> 

</px/td> 

</tr> 

<tr> 

<tdxp  class="style5  stylel "  >Signature</px/td> 

<tdxp  class="style5  stylel " >Date</px/td> 

<tdxp>&nbsp  ;</px/td> 

</tr> 

</table> 

< input  type= "hidden"  name= "MM_update "  value= "update " > 
cinput  type= "hidden"  name= "MM_recordId"  value="<%= 

rs_Update . Fields . Item ( "nbrAssignedID" ) .Value  %>"> 

</f  ormx/td> 

<td  colspan=  "5"  xp>&nbsp;  </px/td> 

<tdxp>&nbsp  ;</px/td> 

</tr> 

</table> 

</body> 

</html> 

<% 

rs_Update . Close ( ) 

Set  rs_Update  =  Nothing 
%> 

F.  ADMIN.ASP  (FIGURE  35) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<% 

■  ***  Logout  the  current  user. 

MM_Logout  =  CStr (Request . ServerVariables ( "URL" ) )  & 

" ?MM_Logoutnow=l " 

If  (CStr (Request ( "MM_Logoutnow" ) )  =  "1")  Then 
Session . Contents . Remove ( "MM_Username " ) 

Session . Contents . Remove ( "MM_UserAuthorization" ) 
MM_logoutRedirectPage  =  "logoff.htm" 

1  redirect  with  URL  parameters  (remove  the  "MM_Logoutnow"  query 
param) . 

if  (MM_logoutRedirectPage  =  "")  Then  MM_logoutRedirectPage  = 

CStr (Request . ServerVariables ( "URL" ) ) 

If  (InStr(l,  UC_redirectPage ,  vbTextCompare)  =  0  And 

Request . Querystring  <>  "")  Then 
MM_newQS  =  "?" 

For  Each  Item  In  Request . Querystring 
If  (Item  <>  "MM_Logoutnow" )  Then 

If  (Len (MM_newQS)  >  1)  Then  MM_newQS  =  MM_newQS  &  "&" 
MM_newQS  =  MM_newQS  &  Item  &  "="  & 

Server .URLencode (Request .Querystring (Item) ) 

End  If 
Next 
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if  (Len (MM_newQS)  >  1)  Then  MM_logoutRedirectPage  = 
MM_logoutRedirectPage  &  MM_newQS 
End  If 

Response . Redirect (MM_logoutRedirectPage) 

End  If 
%> 

<!--#include  f ile= "Connections/connGroup7 . asp"  --> 

<% 

■  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin" 

MM_authFailedURL= "welcome . asp?error=notAdmin" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 ) 
Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (l,MM_authFailedURL, "?")  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 
if  (Len (Request . Querystring () )  >  0)  Then  MM_referrer  = 

MM_referrer  &  "?"  &  Request . Querystring ( ) 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 
"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 

End  If 
%> 

<% 

Dim  rs_modlcomplete _ user 

rs_modlcomplete _ user  =  "m@n" 

If  (Session ( "MM_Username" )  <>  "")  Then 

rs_modlcomplete _ user  =  Session ( "MM_Username " ) 

End  If 
%> 

<% 

Dim  rs_modlcomplete 

Dim  rs_modlcomplete_numRows 

Set  rs_modlcomplete  =  Server . CreateObj ect ( "ADODB . Recordset " ) 
rs_modlcomplete . ActiveConnection  =  MM_connGroup7_STRING 
rs_modlcomplete  .  Source  =  "SELECT  Count  (*)  FROM  qryAHLineltems 
WHERE  txtSignature  is  not  null  AND  txtEmail='"  + 

Replace (rs_modlcomplete _ user,  " 1 " ,  " 1  1 " )  +  "  1  ;  " 

rs_modlcomplete . CursorType  =  0 
rs_modlcomplete . CursorLocation  =  2 
rs_modlcomplete . LockType  =  1 
rs_modlcomplete . Open ( ) 

rs_modlcomplete_numRows  =  0 
%> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 
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<html  xmlns= "http : / / www . w3 . org/1999/ xhtml " > 

<head> 

<meta  http-equiv="Content-Type"  content= " text/html ;  charset=iso- 

8859-1"  /> 

<title>IP  Qualbook:  Admin</title> 

<script  language^ "JavaScript "  type= " text/ j avascript " > 

<  !  -- 

function  mmLoadMenus ( )  { 

if  (window. mm_menu_0304113510_0)  return; 

window. mm_menu_03  04113  510_0  =  new  Menu (" root  ",  48 , 18 , "Verdana, 

Arial,  Helvetica,  sans- 

serif"  , 12, "#000000" , "#FFFFFF" , "#FFFFFF" , "#000000" , "left" , "middle" 

,3,0,100,-5,7, true, true, true, 0 , true , true) ; 

mm_menu_03  04113  51 0_0 . addMenuItem ( " 101 " , " location= ' update . asp 

mm_menu_03  04113  510_0 . addMenuItem ( " 102 " , " location= ' update . asp 
mm_menu_0304113510_0 . hideOnMouseOut=true ; 
mm_menu_0304113510_0 ,bgColor= ' #555555 ' ; 
mm_menu_0304113510_0 . menuBorder=l ; 
mm_menu_03  04113510_0 . menuLiteBgColor= ' #FFFFFF  1  ; 
mm_menu_03  04113  510_0 . menuBorderBgColor= 1 #777777  1  ; 


mm_menu_03  04113  510_0 . writeMenus ( )  ; 

}  //  mmLoadMenus ( ) 

function  MM_swapImgRestore ( )  {  //v3.0 

var  i,x,a=document.MM_sr; 

f or (i=0 ; a&&i<a . length&& (x=a [i] ) &&x . oSrc ; i++ )  x . src=x . oSrc ; 

} 

function  MM_findObj  (n,  d)  {  //v4.01 
var  p , i , x ;  if(!d)  d=document; 
if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 
d=parent . frames [n. substring (p+1) ] . document ; 
n=n . substring (0 , p) ; } 

if ( ! (x=d [n] ) &&d . all )  x=d . all [n] ;  for 
( i=0 ;! x&&i<d . forms . length; i++ )  x=d. forms [i] [n]; 

f or (i=0 ; ! x&&d . layers &&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_swapImage ( )  {  //v3.0 

var  i , j =0 , x, a=MM_swapImage . arguments ;  document . MM_sr=new  Array; 
f or (i=0 ; i< (a . length- 2 ) ; i+=3 ) 

if  ( (x=MM_f indOb j  (a  [i] ) )  ! =null ) { document . MM_sr [ j  +  +  ] =x; 
if(lx.oSrc)  x . oSrc=x. src ;  x . src=a  [i  +  2]  ; } 

} 

function  MM_preloadImages ( )  {  //v3.0 

var  d=document;  if (d . images ) {  if(!d.MM_p)  d.MM_p=new  Array () ; 
var  i , j =d . MM_p . length, a=MM_preloadImages . arguments ;  for(i=0; 
i<a. length;  i++) 

if  (a [i] . indexOf ("#")! =0) {  d . MM_p [ j ] =new  Image; 
d . MM_p [ j  +  +  ]  . src=a  [i]  ; } } 
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} 

function  MM_popupMsg (msg)  {  //vl.O 
alert (msg) ; 

} 

//--> 

</script> 

<link  href="stylesheet . css"  rel= " stylesheet "  type= " text/css "  /> 
<script  language= "JavaScript "  src= "mm_menu . j s ">< /script > 

<style  type="text/css"> 

<  !  -- 

a: link  { 

color:  #3  33  3  f  f ; 

} 

a:visited  { 

color:  #3  3  33  f  f ; 

} 

a: hover  { 

color:  #00CC33  ; 

} 

a: active  { 

color:  #00CC33 ; 

} 

.style3  {font-family:  Verdana,  Arial,  Helvetica,  sans-serif} 

-  -  > 

</style> 

</head> 

<body 

onload= "MM_preloadImages ( ' Images/back_to_main_on .gif' , ' Images/log 
out_on.gif 1 ,  1  Images /add_on . gif  1 ,  1 Images/modify_delete_on.gif ' ,  ' Im 
ages/search_users_on . gif ' ) "> 

<script  language= " JavaScriptl . 2 " >mmLoadMenus ( ) ;</script> 

<table  width="800"  border="0"  align="center"  cellpadding= " 0 " 
cellspacing= " 0 " > 

<tr> 

<td  colspan= " 8 " ximg  src= " Images/innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 


116 


<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= "  6  "  xdiv  align= "  center "  > 

ctable  width="100%"  border="0"  cellspacing= " 0 " 
cellpadding= " 0 " > 

<tr> 

<tdxdiv  align= " center "  ><a  href  =  "welcome  .  asp" 
onmouseout= "MM_swapImgRestore () " 

onraouseover= "MM_swapImage ( 'BackToMainl 1 , 1 1 , ' Images /back_to_main_o 
n.gif  '  ,1)  "ximg  src= " Images/back_to_main . gif "  name=  "BackToMainl " 
width="130"  height="30"  border="0"  id= "BackToMain" 

/  x/ax/  divx/  td> 

<td>&nbsp; </td> 

<tdxdiv  align= "  center "  xa  href="<%=  MM_Logout  %>" 
onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage (' Logout 1 ' , ' ' , ' Images /logout_on . gif ' ,1) " 
ximg  src= " Images/logout . gif "  name= "Logout 1 "  width="130" 
height="30"  border="0"  id="Logout"  /x/ax/divx/td> 

</tr> 

</table> 

<  /  divx/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " xspan  class= " style3 " >As  an  administrator,  you 
can  view  the  progess  of  individual  users,  change  user  permission 
status,  and  delete  user  accounts  from  the  database . &nbsp ;  With 
regard  to  the  qualbooks,  you  can  also  add,  modify,  or  delete 
line  items  .  &nbsp;  </spanx/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 
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<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= "  6  "  xtable  width="100%"  border="0" 
cellspacings " 0 "  cellpadding= " 0 " > 

<tr> 

<tdxh4  align= " center "  >Individual  Accounts  </h4x/td> 

<td  widths " 2% " >&nbsp ; </td> 

<td  colspan= "  3  "  xh4  align= " center " >Change  Line  Items 
</h4x/td> 

</tr> 

<tr> 

<tdxdiv  align= " center "  xa  href  =  "admin_search .  asp" 
onmouseout= "MM_swapImgRestore () " 

onraouseover= "MM_swapImage ( ' RolloverSearch ' , 1 1 , ' Images/search_user 
s_on.gif  1  , 1)  "ximg  src= "  Images/search_users  .gif" 
name= "RolloverSearch"  width="130"  height="30"  border="0" 
id=  "RolloverSearch"  />< /ax/divx/td> 

<td>&nbsp; </td> 

<td  width= "  24% "  xdiv  align= "  right "  xa  href="#" 
one 1 i ck= "MM_popupMsg (' This  feature  will  be  enabled  later.')" 
onmouseover= "MM_swapImage ( ' RolloverAdd ' ,  '  ' ,  ' Images/add_on . gif  1 ,1) 
"  onmouseout=  "MM_swapImgRestore  ( )  "ximg  src= "  Images/add .  gif " 
name= "RolloverAdd"  widths "130"  heights "30"  border="0" 
id=  "RolloverAdd"  /x/ax / divx/td> 

<td  widths " 1% " >&nbsp ; </td> 

<td  widths "  25% "  xdiv  aligns "  left "  xa  href="#" 
one 1 i ck= "MM_popupMsg (' This  feature  will  be  enabled  later.')" 
onmouseover= "MM_swapImage ( ' RolloverModif yDelete ' , ' ' , ' Images/modif 
y_delete_on.gif'  ,1)  "  onmouseout=  "MM_swapImgRestore  ( )  "ximg 
src= " Images/modif y_delete . gif "  name= "RolloverModif yDelete " 
width="130"  heights"30"  border="0"  id= "RolloverModif yDelete " 

/  x/ax/  divx/  td> 

</tr> 

</ table ></ td> 

<td>&nbsp; </td> 

</tr> 

</table> 

< /body> 

</html> 
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rs_modlcomplete . Close ( ) 

Set  rs_modlcomplete  =  Nothing 
%> 

G.  ADMINSEARCH.ASP  (FIGURE  36) 

<  %@LANGUAGE= " VBSCRI PT " %  > 

<% 

■  ***  Logout  the  current  user. 

MM_Logout  =  CStr (Request . ServerVariables ( "URL" ) )  & 

" ?MM_Logoutnow=l " 

If  (CStr (Request ( "MM_Logoutnow" ) )  =  "1")  Then 
Session . Contents . Remove ( "MM_Username " ) 

Session . Contents . Remove ( "MM_UserAuthorization" ) 
MM_logoutRedirectPage  =  "logoff.htm" 

1  redirect  with  URL  parameters  (remove  the  "MM_Logoutnow"  query 
param) . 

if  (MM_logoutRedirectPage  =  "")  Then  MM_logoutRedirectPage  = 
CStr (Request . ServerVariables ( "URL" ) ) 

If  (InStr(l,  UC_redirectPage ,  vbTextCompare)  =  0  And 

Request . Querystring  <>  "")  Then 
MM_newQS  =  "?" 

For  Each  Item  In  Request . Querystring 
If  (Item  <>  "MM_Logoutnow" )  Then 

If  (Len (MM_newQS)  >  1)  Then  MM_newQS  =  MM_newQS  & 

MM_newQS  =  MM_newQS  &  Item  &  "="  & 

Server .URLencode (Request .Querystring (Item) ) 

End  If 
Next 

if  (Len (MM_newQS)  >  1)  Then  MM_logoutRedirectPage  = 
MM_logoutRedirectPage  &  MM_newQS 
End  If 

Response . Redirect (MM_logoutRedirectPage) 

End  If 
%> 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers= "Admin" 

MM_authFailedURL= "welcome . asp" 

MM_grantAccess= false 

If  Session ( "MM_Username " )  <>  ""  Then 

If  (false  Or  CStr (Session ( "MM_UserAuthorization" ))="" )  Or  _ 

( InStr ( 1 , MM_authorizedUsers , Session ( "MM_UserAuthorization" ) ) >=1 ) 
Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr (l,MM_authFailedURL, "?")  >=  1)  Then  MM_qsChar  = 

MM_referrer  =  Request . ServerVariables ( "URL" ) 
if  (Len (Request . Querystring () )  >  0)  Then  MM_referrer  = 

MM_referrer  &  "?"  &  Request . Querystring ( ) 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  & 

"accessdenied= "  &  Server . URLEncode (MM_ref errer ) 

Response . Redirect (MM_authFailedURL) 
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End  If 
%> 

<% 

1  dim  percentComplete 

1  per cent Complete= (rs_completedCount . Fields . Item ( "ExprlOOO " )  .Value 
/rs_LineItemCount .Fields . Item ( "Exprl " ) . Value) *100 
1 percentComplete=percentComplete\l 
'  %> 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : //www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" > 
chtml  xmlns= "http : / / www . w3 . org/1999/ xhtml " > 

<head> 

<meta  http-equiv="Content-Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 

<title>IP  Qualbook:  Search</title> 

<link  href="stylesheet . css"  rel="stylesheet"  type= " text/css "  /> 
<script  language= "JavaScript "  type= " text/ JavaScript " > 

< !  -  - 

function  MM_swapImgRestore ( )  {  //v3.0 

var  i,x,a=document.MM_sr; 

f  or  (i  =  0  ;  a&&i<a .  length&Sc  (x=a  [i]  )  &&x .  oSrc ;  i  +  +)  x .  src=x .  oSrc  ; 

} 

function  MM_preloadImages ( )  {  //v3.0 

var  d=document;  if (d . images ) {  if(!d.MM_p)  d.MM_p=new  Array () ; 
var  i , j =d . MM_p . length, a=MM_preloadImages . arguments ;  for(i=0; 
i<a. length;  i++) 

if  (a  [i]  . indexOf ("#")! =0) {  d . MM_p [ j ] =new  Image; 
d . MM_p [ j  +  +  ]  . src=a  [i]  ; } } 

} 

function  MM_findObj  (n,  d)  {  //v4.01 
var  p , i , x ;  if(!d)  d=document; 
if ( (p=n . indexOf ( " ? " ) ) >0&&parent . frames . length)  { 
d=parent . frames [n . substring (p+1) ] . document ; 
n=n . substring (0 , p) ; } 

if ( ! (x=d [n] ) &&d . all)  x=d.all[n];  for 
( i=0 ;! x&&i<d . forms . length; i++ )  x=d. forms [i] [n]; 

for (i=0 ; ! x&&d. layers &&i<d . layers . length; i++) 
x=MM_findObj (n, d . layers [i] .document) ; 

if(!x  &&  d . getElementByld)  x=d . getElementByld (n) ;  return  x; 

} 

function  MM_swapImage ( )  {  //v3.0 

var  i , j =0 , x, a=MM_swapImage . arguments ;  document . MM_sr=new  Array; 
f or (i=0 ; i< (a . length- 2 ) ; i+=3 ) 

if  ( (x=MM_f indObj  (a  [i] ) )  ! =null) {document .MM_sr [j+  +  ] =x; 
if(lx.oSrc)  x . oSrc=x. src ;  x . src=a  [i  +  2]  ; } 

} 

//--> 

</script> 

<style  type="text/css"> 

<  !  -- 

.stylel  { font- family :  Verdana,  Arial,  Helvetica,  sans-serif; 
font-size:  14px} 

.style2  {font-size:  12px} 

.style3  {font-size:  14px} 
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-  -  > 


</style> 

< /head> 

<body 

onload= "MM_preloadImages ( ' Images/admin_on .gif' , ' Images /logout_on . 
gif  1  )  "  > 

<table  width="800"  border="0"  align="center"  cellpadding= " 0 " 
cellspacing= " 0 " > 

<tr> 

<td  colspan= " 8 " ximg  src= " Images /innerbanner . gif "  width="800" 
height="100"  /></td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width= " 100 " >&nbsp ; </td> 

<td  colspan= " 6 " xtable  width= " 100% "  border="0" 
cellspacing= " 0 "  cellpadding= " 0 " > 

<tr> 

<tdxdiv  align= " center "  ><a  href  =  "admin .  asp" 
onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage ( ' UpdateButtonl ' , ' ' , ' Images /admin_on . gif 
1  , 1)  "ximg  src= " Images/admin . gif "  name=  "UpdateButtonl " 
width="130"  height="30"  border="0"  id= "UpdateButton" 

/  ></a></  divx/  td> 

<td>&nbsp; </td> 

<tdxdiv  align= "  center "  xa  href="<%=  MM_Logout  %>" 
onmouseout= "MM_swapImgRestore () " 

onmouseover= "MM_swapImage (' Logout 1 ' , ' ' , ' Images /logout_on . gif ' ,1) " 
ximg  src= " Images/logout . gif "  name= "Logout 1 "  width="130" 
height="30"  border="0"  id="Logout"  /x/ax/divx/td> 

</tr> 

</tablex/td> 

<td  width="100">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6">&nbsp;</td> 
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ctd>&nbsp; c/td> 

</tr> 

<tr> 

ctd>&nbsp; c/td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " ><h4  align= " center " >View  users  by:  </h4> 

</td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " ><f orm  name="form2"  id="form2"  method="get" 
action= "admin_search_listing . asp?Rank=<%=Request . Form ( "Rank" ) %>&U 
serLevel=<%=Request . Form ( "Permission" ) %>" > 

ctable  width="300"  border="0"  align="center" 
cellpadding= " 0 "  cellspacing= " 0 " > 

<tr> 

<td  width="150"  class= " stylel " >Rank : </td> 

<tdxselect  name="Rank"  class= " stylel "  id="Rank"> 
coption  value="%"  selected= " selected" >A11 

Ranks</option> 

< opt ion  value= "ENS " >ENS</option> 

<option  value= "LTJG" >LTJG</option> 

<option  value= "LT" >LT</option> 

<option  values "LCDR" >LCDR</option> 

<option  values "CDR" >CDR< / option> 

<option  values "CAPT" >CAPT</option> 

<option  values "RDML" >RDML</option> 
coption  value= "RADM" >RADM</option> 
coption  value= "ADM" >ADMc /option> 

c/select>c/td> 

c/tr> 

ctr> 

ctd>cspan  class= "style2 " >c/span>c/td> 
ctd>&nbsp; c/td> 
c/tr> 
ctr> 
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<td  class="stylel">Permission  Level :</td> 
<tdxselect  name=" Permission"  class= " stylel " 
id= " Permission" > 

<option  value="%"  selected= " selected" >A11  User 
Levels< /options 

coption  value= "Admin" >Admin< / options 
coption  value= "User" sUser</options 


</selects</tds 

</trs 

<trs 

<td  class="stylel2  stylel  style2 " s&nbsp; </tds 

ctds&nbsp; </tds 
</trs 
<trs 

<td  class= "sty lei 2 " s&nbsp; </tds 

<tds<input  name= " Submit "  type= " submit "  class= " stylel " 
value= " Submit "  /s</tds 
</trs 
</tables 
< / f orms</tds 
ctds&nbsp; </tds 
</trs 
</tables 
<ps&nbsp; </ps 

<p  align="center"s&nbsp;</ps 

< /bodys 

</htmls 


H.  LOGOFF.HTM  (FIGURE  38) 

< ! DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http : // www . w3 . org/TR/xhtmll/DTD/xhtmll -transitional . dtd" s 
<html  xmlns= "http : //www . w3 . org/ 1999/xhtml " s 
<heads 

<meta  http-equiv=" Content -Type"  content= " text/html ;  charset=iso- 
8859-1"  /> 

<titlesIP  Qualbook:  Goodbye ! </titles 

<link  href="stylesheet . css"  rel= " stylesheet "  type= " text/css "  /> 
</heads 

<bodys 

<table  width="800"  border="0"  align="center"  cellpadding= " 0 " 

cellspacing= " 0 " s 
<trs 

<td  colspan= " 8 " s<img  src=  " Images/innerbanner . gif "  width="800" 
height="100"  /s</tds 
</trs 
<trs 

<tds&nbsp; </tds 
<tds&nbsp; </tds 
<tds&nbsp; </tds 
<tds&nbsp; </tds 
ctds&nbsp; </tds 
<tds&nbsp; </tds 
<tds&nbsp; </tds 
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<td>&nbsp; </td> 

</tr> 

<tr> 

<td  width="100">&nbsp;</td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

<td  width= " 100 " >&nbsp ; </td> 

<td  width="100">&nbsp;</td> 

<td  width="100">&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan= " 6 " ><p  align="left"  class= " style3 " >&nbsp ; </p> 

<p  align="left"  class="style3">&nbsp;</p> 

<h4  align="center"  class= " style3 " >You  have  successfully 
logged  out.&nbsp;  Have  a  great  day!</h4> 

<h5  align= " center "  class= " style3 " >  <a  href =" login . asp" > (Log 
back  in?)  </ax/h5x/td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td  colspan="6">&nbsp;  </td> 

<td>&nbsp; </td> 

</tr> 

<tr> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

<td>&nbsp; </td> 

</tr> 
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<tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
</tr> 

<tr> 

<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
<td>&nbsp; </td> 
</tr> 

</table> 

< /body> 

</html> 
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